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Professor  Thomas  Hartrum  provided  the  original 
stimulus  for  this  thesis.  While  teaching  computer  performince 
evaluation  courses,  he  discovered  a  need  for  a  vehicle  to 
illustrate  the  problems  and  techniques  he  was  discussing  in 
class.  In  1979,  Capt  Paul  Lewis  wrote  a  simu  ation  to  help 
solve  some  of  these  problems.  As  time  past,  limitations  in 
the  original  simu. ation  needed  to  be  solve. 

This  thesis  is  the  first  step  in  converting  the 
standalone  simulation  package  into  a  total  computer 
performanc  evaluation  simulation  environment.  This 
environment  should  include  as  a  minimum  a  simulated  computer, 
"user"  interfaces,  data  base  record  keeping,  and  workload 
generators.  My  attempt  wa  ;  to  redesign  and  code  the  simulated 
computer  syst-m,  and  create  a  "user”  interface  to  the  system 
From  this  basic  environment  follow  on  efforts  can  then  enhance 
the  environment  in  a  modular  fashion. 

I  would  like  to  thank  Professor  Hartrum  for  .  is 
guidance  and  valuable  suggestions  that  he  made  through  out  the 
development  of  this  thesis.  Lt  Col  Clark  oroved  to  be  not 
only  a  excellent  committee  member,  but  a  source  of  knowledge 
on  many  obscure  aspects  of  SLAM.  Finally,  I  wish  to  thank  my 
future  wife  Sue  for  er  understanding  and  support  on  those 
many  nights  when  I  had  to  work. 


David  L.  Owen 
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Abscract 

'This  report  describes  the  development  of  an 
education  tool  which  is  used  in  conjunction  with  a  c  urse  in 
computer  performance  evaluation.  The  tool  is  a  system 
composed  of  background  information  and  software  which 
simulates  a  computer  system.  The  student  is  assigned  a 
position  in  a  fictional  computer  site,  and  is  given 
performance  problems  to  solve.  The  instructor  prepares 
scenarios,  constructs  a  model  of  the  site's  wor  lo:d,  and 
describes  the  initial  computer  configuration.  The  student 
takes  this  information  and  uses  it  to  decide  if  additional 
data  is  required  from  the  hardware  and  software  monitors. 

The  student  forms  an  improvement  hypothesis  and 
makes  changes  to  the  simulated  computer  site.  Changes  to 
the  simulated  computer  configuration  are  made  by  an 
interactive  "user”  interface.  The  configuration  changes, 
along  with  the  workload  description  and  monitor  requests  are 
submitted  to  the  simulation.  The  simulation  uses  these 
Inputs  to  simulate  a  large  mainframe  computer  with  attached 
software  and  hardware  monitors.  Accounting  and  monitor  logs 
are  generated  by  the  simulation.  After  examining  the 
outputs,  the  student  provides  further  changes  until  he  is 
satisfied  with  the  simulated  computer  sit  's  performance. 


This  document  provides  a  copy  of  the  current  software 


used  to  imitate  the  computer,  the  software  used  to  generate 
the  "user"  interface,  and  instructions  to  the  instructor  ar>  J. 
the  student  on  executing  the  software  on  the  ASD  computer 
systems  which  support  AFIT. 


CPESIM  II:  A  Computer  System  Simulation  for 

Computer  Performance  Evaluation  ^  ie 


I.  Introduction 


Background 

Every  computer  system  eventually  comes  to  the  point 
where  more  computing  power  is  needed.  In  the  past,  the 
general  solution  has  often  been  to  buy  more  hardware  without 
analyzing  the  performance  of  the  present  computer  system. 
Recently,  more  and  more  effort  has  been  p.aced  on  analyzing 
the  computer  environment  as  a  whole  to  determine  if 
additional  resources  are  needed  or  if  the  computer  can  be 
"tuned"  to  perform  more  efficiently.  In  a  study  for  the  Air 
Force  (Ref  6),  Bell,  Boehm  and  Watson  suggested  seven  p  ases 
f:r  a  Computer  Performance  Evaluation  (CPE)  team  to  fol  ow 
to  successfully  evaluate  the  cr  nputer  system  and  its 
environment  (Figure  1).  In  order  for  a  student  to 
effectively  learn  the  CPE  tools,  he  should  gain  experience 
in  using  these  seven  phases.  The  first  four  phases, 
understanding  the  system,  analyzing  operations,  formulating 
performance  Improvement  modifications,  and  analyzing 
probable  cost-effectiveness  of  modifications,  can  be 
accomplished  with  information  provi  Jed  by  the  instructor. 


The  instructor  can  either  use  an  actual  scenario  or  -an  make 


up  a  scenario  to  ill'strate  a  particular  performance 
problem.  In  order  for  the  student  to  accomplish  the  last 
three  phases,  testing  specific  hypotheses,  implementing 
appropriate  combinations  of  modifications,  and  testing  the 
effectiveness  of  the  implemented  modifications,  the  student 
must  have  access  to  C "  data  from  an  actual  or  simulated 
computer  system.  CPE  data  comes  'tom  three  general  sources: 
accounting  data,  software  monitor  data,  and  hardware  monitor 
data  Many  computer  installations  have  only  some  of  the 
da*-!  necessary,  and  even  that  may  not  be  aoequate.  Ir 
addition,  many  installations  cannot  afford  to  have  st  ients 
experiment  with  their  oper  tional  system.  In  order  for  the 
students  to  gain  "hands  on"  experience  in  the  last  three 
phases,  a  computer  simulation  is  needed.  In  ’979,  Capt  Paul 
Lewis  developed  a  model  (called  CPESIM  II)  to  aid  students 
In  perform  ng  CPE  (Ref  7). 

Pro  ilem  Description 

Whil-'1  Capt  Lewis'  model  was  a  maj  c  step  in  aiding 
the  CPE  student  wit!  "hards  on"  experience,  it  hac  se/eral 
shortcomings.  The  first  major  sh  rtcoming  is  similar  to 
many  real  life  computer  environments.  The  software  monitor 
for  CPESIM  II  did  not  prc/ide  the  necessary  information  for 
the  student  to  successfully  analyze  the  problem.  The  second 
problem  with  CP E  3 IM  II  was  the  language  in  whic-  it  was 
written.  CPESIM  II  was  written  in  SIMSt.IPT  II  (Ref  3), 


which  at  the  time  was  one  of  the  better  simulation 


languages.  ?ince  1979,  the  expertise  for  SIMSCRIPT  has  not 
been  available  at  AFIT  and  it  is  no  longer  eing  tiught. 

The  final  problem  with  CPESIM  II  was  with  the  user 
interface.  The  amount  of  work  required  to  run  the 
simulation  was  burdensome  to  both  the  instructor  and  tne 
stent.  Thus,  an  easy  means  of  obtaining  all  the  necessary 
CPE  data  was  still  needed. 

Approach 

One  possible  approach  to  solv  eg  this  problem  was  to 
modify  the  existing  CPESIM  II  and  to  create  a  "friendly" 
user  interface.  There  are  several  problems  with  this 
approach.  First,  since  SIMSCRIPT  is  no  longer  taught  at 
AFIT  there  is  a  question  about  how  much  longer  it  will  be 
supported.  Secondly,  even  if  the  dt-ired  enhancements  were 
made,  the  possiblity  of  incorporating  t  iture  improvements 
is  small  since  the  students  do  not  understand  the  language. 
Finally,  more  powerful  simulation  languages  have  been 
developed  since  he  original  CPESIM  II  was  written. 

Since  more  powerful  simulation  lam  'iges  are  now  in 
existance,  it  seems  reasonable  that  the  one  of  these 
languages  should  be  used  to  develop  the  new  CPESIM  II.  The 
choosing  of  the  proper  simulation  language  to  implement  both 
the  hardware  and  the  software  CPESIM  LI  will  be  discussed  in 
greater  detail  in  later  chapters.  With  this  new  model  the 


student  will  get  a  better  environment  to  enhance  his  skills 
in  the  world  of  CPE.  He  will  have  an  easier  to  understand 
and  more  realistic  model  of  a  real  computer  environment.  In 
addition,  the  ins!  uctor  can  concentrate  more  on  developing 
realistic  scenarios  and  less  time  on  changing  the  model  to 
fit  these  scenarios. 

Scope 

As  with  any  simulation,  certain  limitations  have  to 
be  placed  on  CPESIM  II.  The  number  of  possible 
architectures  and  operating  systems  i  almost  limitless.  In 
order  to  get  a  model  of  reasonable  sice  which  ill  take  a 
reasonable  amount  of  timt  to  execute,  a  spec  fic 
architecture  and  operating  system  was  chosen.  In 
partic  ;lar,  the  architecture  will  consist  of  a  classic  von 
Neumann  machine,  which  can  vary  in  memory  size,  allocated 
and  unallocated  I/O  devices,  I/O  channels,  and  number  of 
CPUs.  The  operating  system  will  be  a  static  partion  memory, 
multiprocessing  operating  s/sten.  In  addition  there  will  be 
a  specific  software  and  hardware  monitor  for  the  computer 
system.  Interactive  processing,  distributed  processing,  and 
dynamic  memory  allocation  will  not  be  covered  in  this 
thesis. 

The  financial  cost  and  manpower  required  to  use  the 
monitors,  to  buy  more  hardware,  o  to  manipulate  the 
computer  environment  is  not  addressed.  This  i.s  a  necessary 


part  of  CPE,  and  should  be  supplied  In  the  Instructor 
scenario  given  to  tue  students. 

Order  of  Presentation 

Chapter  II  describes  the  system's  requirements  for 
CPESIM  II.  Chapter  III  describes  .he  transformation  of  the 
requirements  into  the  sv  tern  design.  Chapter  IV  describes 
the  results  and  validation  of  CPESIM  II,  while  Chapter  V 
proviv^s  a  final  summary  and  recommendation  for  future 
enhance.::nts  .  Appendix  A  provides  a  detailed  representation 
of  the  requirements  in  SADT  form.  Appendices  B  and  C 
provide  the  detailed  design  in  SLAM  network  form  and 
Structured  English,  respectfully.  Appendix  D  lists  the 
actual  CPESIM  II  code.  Appendix  E  consists  of  an 
instructor's  manual  for  using  the  simulation,  while  Appendix 
F  is  the  student's  CPESIM  II  manual. 


Envi ronme n  t 


CPESIM  II  is  intended  to  be  used  in  graduate  level 
computer  performance  evaluation  classes  and  graduate  level 
queueing  theory  classes.  These  classes  concentrate  on  the 
application  of  moder  1  tools  and  techniques  for  evaluating  a 
computer  in  its  environment.  Specific  techniques  are 
presented  throughout  the  term  and  the  student  is  given  case 
studies  to  which  these  techniques  are  applied. 

CPESIM  II's  high  level  requirement  is  to  give  the 
student  a  "realistic"  system  in  which  he  can  apply  these 
techniques  to  the  given  case  studies.  In  order  to 
successfully  integrate  the  case  study  with  CPESIM  II,  the 
instructor  needs  to  develop  a  scenario  which  will 
demonstrate  the  performance  problems.  The  scenario  will 
consist  of  describing  the  computer,  its  environment,  and 
possibly  its  performance  problem  or  desired  goal.  The 
description  could  be  in  prose  form  or  in  thj  form  of 
accounting  and  monitor  data  of  ±n  existing  system.  The 
student  will  evaluate  the  given  data  and  determine  if  h-3  has 
enoug  i  data  to  formulate  an  improvement  hypothesis.  If  more 
data  Is  required,  then  he  can  run  the  CPESIM  II  model  to  get 
accounting  data,  software  monitor  rata  or  hardware  monitor 
data.  Once  sufficient  data  is  available  he  will  form  a 
hypothesis  that  might  solve  che  problem.  The  student  will 
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then  implement  his  hypothesis  by  changing  the  computer 
configuration  of  the  CPESIM  II  model  and  run  the  model 
against  the  workload.  The  model  shall  provide  "realistic” 
accounting  data,  and  depending  on  the  request,  hardware  and 
software  monitor  data.  The  student  will  analyze  the  data 
and  determine  if  other  changes  are  needed.  If  necessary 
this  process  can  continue  until  the  student  is  satisfied 
with  his  solution  to  the  original  problem.  Figure  2  shows 
this  case  study  flow  in  SADT  (Ref  1)  format. 

Software  .equirements 

The  software  implementing  CPESIM  II  shall  provide  a 
"realistic"  computer  environment  to  the  student.  In  order 
to  pro  -ide  this  "realistic"  environment,  the  software  will 
be  broken  into  four  parts. 

The  first  portion  of  software  will  produce  a 
workload  data  file  which  may  be  used  as  input  to  the 
simulation.  The  Instructor  will  input  the  different  types 
of  job  streams  in  terms  of  empirical  distributions.  The 
program  will  take  these  distributions  and  calculate  job 
streams.  The  job  st'eams  will  consist  of  job  parameters 
such  as  job  name,  cpu  time  required,  number  of  disk  I/Os, 
etc.  Each  job  will  then  have  its  parameters  written  to  the 
workload  data  file  in  a  format  that  the  computer  simulation 
can  use  . 
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The  second  portion  of  CPESIM  II  will  be  the  user's 
interface  to  set  up  of  the  computer's  architecture  and 
operating  system.  In  this  portion  of  code  the  specific 
computer  configuration  must  be  specified.  The  software  must 
be  able  to  describe  the  hardware  configuration  in  terms  of 
number  and  spied  of  c  us,  I/O  devices,  and  channels;  siae  of 
main  memory;  and  hardware  monitor  connection  probes.  In 
addition,  t  .e  I/O  matrix  between  the  channels  ad  the  I/O 
devices  has  to  be  described.  The  user  interface  will  also 
be  able  to  specify  the  start  and  stop  times  for  the  software 
monitor  and  hardware  monitor. 

The  third  part  af  CPESIM  II  will  be  the  post 
processing  of  the  accounting  data  file,  the  software  monitor 
data  file  and  the  hardware  monitor  data  file.  ,rhe 
processing  will  pr  luce  listings  which  wi  1  be  similar  in 
format  to  real  accounting,  software  monitor  and  hardware 
monitor  output  files.  This  processing  will  not  affect  the 
original  data  file.  This  will  allow  the  students  to  analyze 
the  raw  output  using  standard  statistical  software  packages 
like  Statistical  Package  for  the  Social  Sciences  (SPSS)  (Ref 
9). 

The  last  software  portion  of  CPESIM  II  will  be  the 
simulation  of  the  computer  and  operating  system.  The 
architecture  will  vary  slightly  according  to  the  the  user's 
input  parameters,  but  the  basic  machine  will  be  the  cla  sic 
von  Neumann  computer  (Ref  5).  It  will  consist  of  one  or 


more  cpus,  main  memory,  I/O  channels,  allocated  I/O  devices 
(tapes,  card  readers  and  line  printers),  and  unal locatable 
I/O  devices  (disks,  drums)  (Figure  J).  The  operating  system 
is  a  basic  multiprocessing,  multiprogramming,  partioned 
memory  operating  system  (Ref  8).  Looking  at  the  hardware 
and  the  operating  system  as  i  combi  led  unit,  a  typical  job 
will  perform  six  basic  tasks  as  it  flows  through  the 
simulation  (Figure  4).  At  j.  b  arrival  the  job  will  be 
spooled  (1)  onto  disk.  A  ter  spooling  the  job  will  be 
placed  into  the  hold  queue  where  it  will  wait  for  the  job 
schjduler  to  allocate  resources  (2).  After  the  resources 
are  allocated  the  job  will  wait  in  the  execute  ueue.  When 
a  cpu  becomes  free  the  cpu  will  perform  a  cpu  burst  (3)  on 
the  job.  After  the  cpu  burst  one  of  three  things  will 
happen.  If  the  job  is  not  finished  the  job  will  either  go 
back  into  the  execute  queue  or  perform  an  I/O  (4).  If  the 
job  is  completed  it  will  be  pla  ed  in  the  output  queue  until 
it  can  be  spooled  to  the  printer  (5).  The  last  process  (6) 
is  the  writing  of  “he  data  files  and  the  freeing  of  the 
job's  resources. 

In  addition  to  the  hardware  and  the  operating  system 
the  last  software  portion  will  contain  both  the  hardware  and 
the  software  monitors.  The  hardware  monitor  will  be  an 
event  driven  monitor  which  will  record  timing  and  counter 
data  for  the  cpus,  channels  and  I/O  devices.  The  hardware 
monitor  will  not  affect  the  (simulated)  speed  of  the  cpu. 
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The  software  monitor  will  keep  track  of  the  time  that  a  job 
spends  in  each  of  the  queues.  Unlike  the  hardware  monitor, 
the  software  monitor  will  slow  down  the  relative  speed  of 
the  simulated  cpu.  This  slowdown  represents  the  increased 
overhead  which  a  real  software  monitor  causes  on  a  real 
system. 

Appendix  A  contains  the  detailed  requirements  of  the 
simulation  in  SADT  form. 

Support  Requiremen  .  s 

CPESIM  II  is  only  one  portion  of  an  educational  tool 
in  teaching  CPE.  There  is  lore  to  CPE  than  just  applying 
tools  in  a  "closed"  system.  With  enough  money  and  equipment 
almost  anyone  can  improve  the  performance  of  a  computer.  To 
effectively  learn  all  the  aspects  of  CPE,  the  student  needs 
to  be  presented  with  a  scenario  which  represent  a  "total" 
computer  environment.  Scena'ios  will  aid  the  student  in 
learning  the  complexities  involved  in  the  decision  making 
process.  The  see  ario  should  include  data  on  the  presen- 
hardware  and  software  configurations,  possible  limitations 
in  configurations,  and  costs  ass  elated  with  the  different 
pieces  of  equipment.  In  addition  to  the  measurable  factors 
in  the  system,  intangibles  like  the  user's  and  management's 
needs  and  goals  should  be  represented.  Witi  a  sc  nario  the 
simulation  will  be  more  than  a  simple  "plug  and  chut:" 
exercise. 
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Support  is  also  needed  for  the  student  to  analyze 
the  results  of  the  simulation  run.  After  the  student  has 
implemented  his  imr  jv  ment  hypothesis,  he  needs  to  analyze 
the  affects  on  the  system.  In  c  der  o  do  this,  he  needs 
access  to  standard  statis'ic.-.  1  packages  like  SPSS  (Ref  9). 

Conflicting  Requl r eme n  t  s 

There  are  a  few  conflicts  with  the  reuirements  for 
CPESIM  II.  Like  any  simulation,  the  confl  ;ts  involve 
flexibility  and  complexity  of  the  simulation.  An  increase 
in  flexiblity  directl>  correlates  to  an  increase  in 
complexity.  There  are  an  infinite  number  of  computer 
configurations  which  are  available.  In  order  to  get  a 
“reasonable"  simulation,  limitations  must  be  made  in  the 
flexiblity  of  the  system.  This  "reasonable"  simulation  must 
be  flexible  enough  to  effectively  teach  the  tools  of  CPE 
while  simple  enough  for  the  student  to  comprehend  the 
simulation  and  for  the  developer  to  implement  it. 

Verification  and  Validation 

The  verification  of  CPESIM  II  will  test  the  accuracy 
of  the  model  to  execute  the  statements  in  the  proper  or^er. 
This  will  be  done  by  running  a  workload  jf  a  few  programs 
through  t - e  model.  These  programs  will  cause  the  execution 
of  all  the  statements  in  the  model.  A  visual  inspection 
will  be  made  to  insure  that  the  model  executes  the 
statements  as  expected. 


How  does  one  validate  a  simulation  that  is  not  a 
model  of  anything  in  real  life?  That  is  the  problem  one  has 
to  address  when  trying  to  validate  'PESIM  II.  CPESIM  II  is 
a  representation  of  a  "computer”  in  the  general  sense,  but 
not  of  any  parti  'ular  model.  It  should  behave  like  a 
typical  computer  given  a  certain  workload,  but  it  should  not 
produce  exactly  the  sa^e  results.  For  that  reason,  it 
cannot  be  directly  compared  to  any  real  life  cata  from  a 
computer  system.  Thus,  the  validation  by  comparing  it  to  a 
real  life  machine  will  ha’e  to  be  intuitive  in  nature. 

The  new  CPESIM  II  should  act  similar  to  the  old 
version  of  CPESIM  II,  but  once  again  the  matching  will  not 
be  exact.  The  new  version  has  enhancements,  particularly  in 
the  job  scheduler  algorithm  and  the  I/O  scheduler  algorithm, 
which  the  original  CPESIM  II  did  ’.ot  have.  As  a  re'-  'It  of 
these  enhancements,  the  output  data  of  the  simulations 
should  have  some  correlation  for  the  same  workload,  but  not 
an  exact  cor  'elation. 

Summary 

This  chapter  has  presented  only  the  high  level 
requirements  for  PESIM  II  and  a  general  verification  and 
validation  procedure.  If  the  reader  is  interested  in  the 
detailed  requirements  needed  to  design  and  test  the 
simulation,  fe  should  now  read  Appendix  A  before  going  on  to 
the  next  chapter  which  will  cover  the  design  of  CPESIM  II. 


III.  Simulation  Design 


This  chapter  discusses  the  thought  process  and 
decisions  that  were  made  In  the  design  and  development  of 
the  CPESIM  II  simulation  software.  In  particular,  this 
chapter  will  discuss  the  simulation  language  chosen,  the 
design  of  the  simulated  computer  architecture,  operating 
system,  workload  , irameters,  user  interface,  and  post 
processing  software. 

Implementation  Languages 

In  order  to  decide  on  which  language  or  languages 
would  be  best  to  use,  certain  criteria  had  to  be 
established.  First,  the  language  must  be  presently 
supported  by  one  of  AFIT's  computers,  and  should  have  a  high 
likelihood  of  future  support.  Secondly,  the  language  should 
be  user  friendly.  The  users  should  not  have  to  know  all  the 
details  of  simulation  but  only  about  those  portions  which 
effect  the  performance  of  a  computer.  The  third  criteria 
that  a  language  was  gauged  against  was  that  of  its  power. 

The  power  of  a  language  shall  be  defined  as  the  ability  of 
the  language  to  handle  the  mundane  bookkeeping  associated 
with  simulations,  with  little  or  no  us  r  intervention.  At 
the  same  time  the  language  should  give  the  programmer  the 
ability  to  go  to  a  lower  level  if  desired. 


The  original  CPESIM  II  was  written  in  SIMSCRIPT  II 
so  Simscript  was  a  natural  benchmark  against  which  to  judge 
other  languages.  In  1979,  AFIT  supported  SIMSCRIPT  II  and 
it  was  one  of  the  more  powerful  languages.  By  1983,  more 
powerful  languages  had  come  into  being.  AFIT  is  no  longer 
teaching  SIMSCRIPT  II  and  most  of  the  expertise  at  AFIT  has 
been  lost.  It  was  questionable  whether  or  not  it  would  be 
supported  in  the  future.  SLAM  (Ref  10)  on  the  other  hand, 
is  well  supported  by  AFIT  and  is  one  of  the  most  powerful 
languages  of  the  day.  The  support  of  SLAM  and  its  power 
make  it  a  very  desirable  language,  but  SLAM  is  not  user 
friendly.  In  order  to  overcome  this  drawback,  a  second 
language  was  introduced  to  make  a  user  friendly  interface. 
This  interface  will  use  FORTRAN  V  (refs  2,  3)  to  modify  the 
configuration  data  file  which  initializes  the  simulation  to 
a  particular  hardware  configuration.  This  interface  shall 
query  t  e  user  about  the  differ  nt  options  available  and 
then  generate  a  configuration  data  file.  Thus  the  power  of 
SLAM  can  be  used  to  rrogram  the  simulation  and  the  user  can 
still  have  a  user  friendly  system. 

Computer  Archi tec  tur  e 

After  the  simulation  language  was  decided  upon,  the 
type  of  computer  architecture  to  be  imulated  had  to  be 
established.  There  were  two  main  types  of  architectures 


considered.  The  bus  oriented  architecture,  which  is 


representative  of  many  of  the  mini  computers,  has  a  central 
bus  which  links  the  cpu,  the  memory  ad  the  I/O  devices 
together.  The  c en t r al -memo r y  architecture  uses  main  emery 
as  the  interface  between  the  cpu  and  the  I/O  devices.  The 
cen t r al -memo ry  architecture  was  chosen  for  two  reasons. 

First  of  all,  it  is  representative  of  the  majority  of  the 
large  scale  computers  in  which  CPE  would  be  used  and 
secondly,  it  is  the  architecture  which  proved  itself  as  a 
valuable  teaching  aid  in  the  original  CPESIM  II. 

There  are  many  possible  varieties  o:  central-memory 
computers.  The  CPESIM  II  design  is  a  trade  off  between 
flexibllty  of  the  different  varieties  and  a  reasonable  sized 
simulation.  Most  of  the  limits  on  the  simulation  were  based 
)n  having  a  reasonable  slmu’ation  (in  terms  of  size  and 
speed).  Since  SLAM  was  written  in  FORTRAN,  the  basic  memory 
allocation  for  a  SLAM  program  is  the  same  as  a  FORTRAN 
program.  This  memory  allocation  requires  that  the  size  of 
arrays  be  specified  at  compile  time.  Unlike  PASCAL  and  some 
of  the  newer  languages,  the  ^e  arrays  are  initialized  at  run 
time  and  use  a  fixed  amount  of  memory  during  the  entire 
simulation.  For  this  reason,  dimensions  of  arrays  were 
carefully  chosen.  The  number  of  channels,  allocatable  I/O 
devices,  unal loca table  devices,  and  memory  partitions  had  to 
be  analyzed.  The  simulation  can  easily  be  expanded  if 
desired  by  changing  the  limits  on  these  arrays. 


The  basic  computer  consists  of  a  single  cpu 
multiprocessing  system.  because  the  cpu  is  treated  as  a 
server  by  the  SLAM  compiler,  multiple  cpu  configurations  are 
availafc.e,  but  the  hardware  monitor  will  treat  all  the  cpjs 
as  one.  There  will  still  be  one  execute  queue  in  the 
multiple  cpu  configuration.  When  a  cpu  is  free,  the  cpu 
will  get  the  first  job  in  the  execute  queue  and  will  perform 
a  time  burst  on  that  job.  There  is  no  limit  on  the  number 
of  cpus  that  the  simulated  computer  can  handle. 

A  static  partition  memory  management  system  is 
implemented  in  the  simulated  computer.  There  is  a  maximum 
of  twenty  partitions  available  to  the  user.  Twenty 
partitions  should  be  a  sufficient  number  of  partitions  so 
that  the  student  can  tailor  the  size  of  the  partitions  to 
fit  several  different  workload  streams,  the  input  spooler, 
output  spooler  and  software  monitor.  There  is  no  limit  on 
the  size  of  the  memory  partitions.  The  implementation  of  a 
dynamic  memory  management  scheme  was  Invest  ‘gated  .  Based 
upon  experience  with  the  original  CPESIM  II,  dynamic  memory 
management  took  excessive  amounts  of  real  cpu  time  to 
execute  the  simulation.  For  this  reason,  it  was  determined 
that  the  simulated  computer  would  not  have  dynamic  memory 
management . 


The  IOCs  connect  the  I/O  devices  tr  memory.  There 
is  a  limit  of  five  IOCs  connected  to  memory.  The  limit  on 
the  IOCs  was  based  on  p  st  experience  with  CPESIM  II. 
Performance  problems  such  like  having  all  the  high-speed 
devices  on  one  channel,  or  just  a  general  backlog  for  an 
IOC  can  be  modeled  with  just  one  or  two  IOCs.  The  IOCs  can 
have  any  data  transfer  rate  desired  and  be  multiplexed  to 
any  or  all  I/O  devices.  This  combination  will  allow  the 
instructor  to  create  a  scenario  for  just  about  any  I/O 
performance  problem. 

The  I/O  devices  are  broken  into  four  types.  The 
first  type  is  the  card  reader.  There  is  only  one  card 
reader.  "he  card  reader  is  only  used  by  the  inpuc  spooler, 
and  can  be  connect  to  any  or  all  channels.  The  card  reader 
can  be  set  to  any  desired  speed  (cards  per  minute). 

Presently  the  simulation  assumes  that  t  e  card  contains  80 
bytes  of  information.  This  could  be  changed  by  changing  one 
variable  in  subroutine  INTLC.  The  choice  for  only  one  card 
reader  was  to  simplify  the  algorithm  for  the  input  spooler. 
Adding  the  capablity  of  having  multiple  card  readers  does 
not  substantially  add  to  teaching  of  CPE. 

The  second  type  of  I/O  device  is  the  line  printer. 

Like  the  card  reader,  there  is  only  one  line  printer,  and  it 
can  be  connect  to  any  IOC.  The  line  printer  prints  a  132 
character  line  at  any  desired  speed  alines  per  minute). 


The  allocitable  I/O  devices  (tapes)  are  the  third  type 
of  I/O  devices.  Allocatable  devices  are  assigned  to  a  job 
prior  to  the  job  being  placed  in  the  execute  queue  and 
released  back  to  the  system  when  the  job  is  placed  in  the 
output  queue.  The  I/O  requests  on  allocated  devices  are 
spread  evenly  between  the  devices  allocated  to  the  job.  The 
allocatable  I/O  devices  can  be  set  to  any  desired  speed  and 
be  connected  to  any  IOC.  There  is  a  limit  of  ten 
allocatable  devices  in  any  one  simulation. 

The  last  type  of  I/O  device  is  the  unal loca tab le 
device.  These  devices  are  usually  disks  or  drums.  The 
un  il locatable  devices  are  assigned  to  a  job  when  a  job 
requests  a  unal loca tab  1  a  I/O  and  released  back  to  the  system 
when  that  particular  I/O  is  finished.  Unal loca tab le  device 
I/Os  are  distributed  evenly  between  all  unallocatable 
devices  in  a  round  robin  fashion.  Like  the  ocher  devices, 
unall  :ated  I/O  devices  can  be  specified  at  any  speed  and 
connected  to  any  or  all  channels.  There  is  a  limit  of  ten 
unallocatable  devices  at  one  time  (Figure  5>. 


Configuration  Limit 


Operating  System 

The  operaclng  system  for  CPESIM  II  Is  a 
mul t iprog rammed  static  partition  operating  system.  The 
operating  system  executes  five  different  types  of  jobs.  The 
first  ty- e  Is  a  typical  applications  program.  The  other 
four  types  of  jobs  are  actual  parts  of  'he  operating  system: 
the  Input  spooler,  the  output  spooler,  the  job  scheduler  and 
a  software  monitor. 

A  typical  application  program  gets  into  the  system 
through  the  input  spooler  (Fig  re  6).  After  the  job  is 
spooled  it  is  placed  into  the  hold  queue  to  await  resources. 
The  job  scheduler  examl  es  the  jobs  in  the  hold  queue, 
according  to  the  job  priorities  and  the  time  the  job  entered 
the  hold  queue,  and  allocates  memory  partitions  and 
allocatable  I/O  devices  to  each  job.  After  the  job  is 
allocated  it  proceeds  to  the  execute  queue.  When  the  cpu  is 
free  it  takes  the  highest  ranking  job  in  the  execute  queue 
and  performs  a  cpu  burst.  Job  ranking  in  the  execute  queue 
is  done  by  job  type.  The  job  scheduler  gets  the  highest 
priority,  followed  y  the  software  monitor  start-up  job, 
output  spooler,  input  spooler  and  user  jobs,  respectively. 
The  cpu  burst  lasts  until  one  of  four  things  happen:  an  I/O 
was  issued  for  an  allocatable  I/O  devic^  an  I/O  was 
requested  issued  for  an  una 1 1  oca tabl e  device,  a  timeout 
occurred,  or  the  job  finishes.  If  an  allocatable  device  I/O 
request  occurred  then  the  job  gets  placed  in  tue  smallest 
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channel  queue  which  Is  connected  to  the  requested  I/O 
device.  The  I/O  is  performed,  the  channel  Is  freed,  and  the 
job  is  placed  back  into  the  execute  queue.  If  an 
unal loca table  device  I/O  occurred  the  job  gets  placed  in  the 
proper  device  queue.  Once  the  device  has  been  acquired,  the 
job  is  placed  in  the  smallest  channel  qu?ue  which  is 
connected  to  the  device.  The  I/O  is  the  1  perormed.  After 
completion  of  the  I/O  the  channel  and  the  deviced  are  freed 
and  the  job  is  placed  back  into  the  execute  queue.  If  a 
timeout  occurred  then  the  job  is  placed  back  into  the 
execute  queue  to  wait  for  another  time  slice.  If  t  e  job  is 
completed  the  job  is  placed  in  the  output  queue  an  waits 
for  the  output  spooler  to  print  the  job.  Also  at  that  time, 
the  memory  partition  used  and  the  allocatable  devices 
assigned  to  the  job  are  released  back  to  the  operating 
system. 

The  input  spooler  takes  the  applic  tions  programs  in 
the  input  queue  (card  reader)  and  spools  them  onto  the  disk. 
When  a  new  job  arrives  at  the  input  queue  the  operating 
system  checks  to  see  if  the  input  spooler  is  already  in 
memory.  If  the  spooler  is  not  in  memory  it  is  placed  in  the 
hold  queue  and  must  compete  for  resources  and  cpu  time  like 
any  other  job.  When  the  input  spooler  acquires  the  cpu,  it 
first  schedules  an  I/O  to  read  the  cards  into  a  system 
buffer.  Pres,  itly,  the  system  buffer  is  IK,  but  it  can  be 
changed  to  any  size  by  modifying  subroutine  INTLC.  After 


the  buffer  is  loaded  the  spooler  is  placed  back  into  the 
execute  queue.  The  next  time  the  spooler  gets  the  cpu  the 
buffer  is  spooled  to  the  disk.  This  two  step  process 
continues  until  the  entire  job  is  spooled.  At  that  time  the 
operating  system  checks  to  see  if  there  are  iny  more  jobs  in 
the  input  queue.  The  input  spooler  continues  until  a  1  the 
jobs  in  the  input  queue  are  spooled.  The  input  spooler  is 
then  released  from  the  system  and  the  memory  partition  is 
returned  tc  the  operating  system. 

The  output  spooler  takes  the  job's  output  file  which 
is  stored  on  disk  and  prints  it.  Whenever  a  job  arrives  at 
the  outp  .t  queue,  the  operating  system  checks  to  see  if  the 
output  spooler  is  loaded.  If  necessary  the  output  spooler 
will  be  placed  in  the  hold  queue  and  wi~l  compete  for 
resources.  When  the  output  spooler  first  executes  it  will 
perform  an  I/O  which  will  load  the  IK  system  buffer  from  the 
disk  file.  The  spooler  will  be  placed  back  into  the  execute 
queue  so  that  it  can  print  the  buffer  on  the  next  time 
through.  The  process  continues  until  the  entire  job  has 
been  printed.  Like  the  input  pooler,  the  output  spooler 
continues  to  spool  until  its  associated  queue  is  empty. 

The  job  scheduler  allocates  memo'y  partitions  and 
allocatable  I/O  devices  to  jobs  in  the  hold  queue.  The  job 
scheduler  is  loaded  in  the  execute  queue  (if  it  is  not 
already)  every  time  a  new  job  arrives  in  the  hold  queue  or 
when  resources  are  freed  (after  each  applications  job, 


spooler  or  software  monitor  completion).  The  job  scheduler 
is  always  core  resident  as  part  of  the  operating  system  and 
does  not  count  against  the  lultiprograiming  level.  When  the 
job  scheduler  obtains  the  cpu,  it  looks  at  every  job  in  the 
hold  queue  to  see  if  it  can  assign  resources.  Resources  are 
assigned  to  :obs  according  to  a  priority  system.  The  job 
scheduler  ranks  the  jobs  according  to  the  job's  priority 
attribute.  This  attribute  is  p  rt  of  the  job's  input 
parameters,  which  are  read  in  from  the  workload  data  file. 

If  there  is  a  tie,  the  jobs  are  arranged  according  to  the 
hold  queue  arrival  time.  Each  job  in  the  hold  queue  is 
analyzed  according  to  this  priority  scheme.  The  job 
scheduler  first  checks  to  see  if  a  memory  partition  is  free 
which  can  handle  the  job.  If  a  memory  partition  is  free  the 
schedul  ’r  thens  checks  to  see  if  there  are  enough 
allocatable  I/O  devices  free.  Only  if  both  conditions  are 
met,  the  job  is  assigned  resources  and  is  taken  from  the 
hold  queue  and  placed  into  the  execute  queue. 

Software  Monitor 

The  software  monitor  is  like  any  other  job  in  the 
simulated  system.  It  is  entered  into  the  system  and  must 
compete  for  computer  resources.  The  monitor  is  loaded  into 
the  hold  queue  at  the  user  specified  starting  time.  It  sits 
in  the  hold  queue  until  a  partition  of  at  le  ist  4K  is 
available.  It  is  then  placed  in  the  execute  queue  until  it 


can  acquire  the  cpu.  When  the  monitor  acquires  the  cpu  it 
starts  the  tracing  of  jobs  through  five  user  specified 
qut  :es.  The  software  monitor  then  releases  the  cpu  back,  to 
the  operating  system.  Once  the  trace  has  started  the 
monitor  will  record  data  about  every  job  that  enters  one  of 
the  five  queues.  The  queue  name,  the  time  spent  in  the 
queue,  where  the  job  came  from,  and  where  the  job  is  going, 
is  recorde  -  every  time  a  job  leaves  a  queue.  Like  a  real 
software  monitor  the  monitoring  of  the  queues  and  the 
recording  of  the  data  puts  an  extra  burden  on  the  system. 
This  burden  is  represented  by  making  the  cpu  run  at  95% 
efficiency.  When  the  scheduled  stopping  time  of  the  monitor 
occurs,  the  memory  partition  is  freed  and  the  cpu  goe*  back 
to  running  at  full  efficiency. 

Hardware  Monitor 

Unlike  the  software  monitor,  th  hardware  monitor 
does  not  use  up  the  simulated  computer  resources.  The 
hardware  monitor  has  its  own  timers,  counters,  and  data 
recording  devices.  It  is  an  event  driven  monitor  which  can 
be  connected  to  any  I/O  device,  channel,  or  cpu.  The 
hardware  monitor  has  two  timer  probes  and  three  counter 
probes.  These  probes  along  with  the  starting  time,  the 
stopping  time,  and  the  sample  data  rate  are  specified  in  the 
configuration  file.  One  limitation  in  the  hardware  monitor 
is  that  the  monitor  treats  mulitple  cpus  as  one  if  it  was 


on  cpu.  The  timer  or  counter  connected  to  the  cpus  will  be 
pulsed  every  time  any  cpu  is  activated.  The  output  of  the 
hardware  monitor  is  written  to  a  data  file  which  is 
available  for  oost  processing. 

Workload  Gene r  a  1 1 o  n 

The  software  necessary  for  the  generation  of  the 
workload  data  came  from  the  original  CPESIM  develo: ed  by 
Capt  Lewis  (Ref  7).  No  changes  to  workload  generator  were 
made  . 

User _ Interface 

In  order  to  easily  change  the  conf :  juration  of  the 
simulated  computer,  a  user  interface  was  written  in  FORTRAN 
V.  This  interface  allowes  the  user  to  specify  the  number 
and  types  of  cpus,  allocatable  I/O  devices,  unallocatable 
devices,  and  channels.  In  addition,  the  connections 
between  the  I/O  devices  and  the  channels,  and  the  number  and 
size  of  memory  partitions  are  specified.  If  the  user 
desires  the  software  monitor  and/or  the  hardware  monitor, 
they  will  be  specified  in  this  interface  as  we  1  *  . 

The  interface  was  broken  down  into  three  sections 
(Figure  7).  The  first  part  of  the  interface  takes  an  input 
file  called  TYPES  and  reads  in  the  different  types  of  cpus, 
I/O  devices  and  channels  that  the  student  may  pick  from. 

The  se  con  part  queries  the  student  obout  the  simulated 
computer  cunfiguration  desired.  The  program  does  this  by 


displaying  a  menu  of  options  for  each  piece  of  equipment  and 
allowing  the  user  to  make  his  choice.  This  section  of  code 
also  queries  the  user  about  the  monitors  and  their 
parameters.  The  third  section  of  code  takes  the  user's 
responses  and  writes  a  configuration  file,  called  CONFIG, 
which  can  be  read  by  the  simulated  computer. 


IV.  Verification  and  Validation 


This  chapter  will  discuss  the  method  in  which  CPESIM 
II  was  tested  and  the  process  that  occurred  in  validating 
the  model.  The  chapter  is  broken  Into  two  main  sections. 

The  first  section  will  cover  the  testing  ;hat  was  performed 
to  verify  that  the  code  was  executing  as  expected.  The 
second  section  will  discuss  the  validation  process  that 
occurred  in  validating  the  new  CPESIM  II  against  the  old 
CP  SIM  II. 

Verif ica t  io  n 

The  testing  of  the  computer  simulation  followed  the 
top  down  implementation  of  simul  ition  progra  .  The  coding 
of  CPESIM  II  wa s  broken  into  five  parts  and  the  testing  t 
the  program  followed  these  five  phases. 

Main  Program  Flow.  The  first  phase  concentrated  on  the 
testing  of  the  "main"  job  flow  through  the  computer 
simulation.  The  "main"  flow  consisted  of  job  arrival,  input 
queue,  hold  queue,  execute  queue,  and  output  queue.  There 
was  not  any  I/O  implemented  in  this  phase  and  the  monitors 
were  not  operational.  Reading  job  arrivals  from  the  disk, 
figuring  cpu  bursts,  writing  output  to  disk  files,  and 
general  job  flow  were  the  major  test  objectives  demonstrated 


in  this  phase. 


Disk  I/O  and  Channel  Implementation.  The  second  phase  took 
the  "main”  job  flow  and  added  unal loca t able  I/O  devices 
(disks)  and  channels  to  the  network.  The  main  test 
objective  of  this  phase  was  the  proper  selection  of  devices 
and  channels  for  given  I/O  conditions. 

Tape  I/O  Implementation.  The  *-hird  phase  was  the 
implementation  of  allocatable  I/O  devices  (tapes)  into  the 
network.  The  allocation  of  the  devices  in  the  job  scheduler 
module  was  tested,  as  well  as  how  the  tape  drives  interacted 
with  the  channels  and  disk  drives. 

Software  Monitor _ Implementation.  The  fourth  phase  was  the 

implementation  of  the  software  mr  itor  into  the  network. 

Key  factors  which  were  tested  are  the  increase  cpu  time 
required  because  of  the  software  aonitor  and  the  writing  of 
the  job's  queue  times  to  the  appropriate  disk  file. 

Hardware  Monitor  Implementation .  The  fifth  phase 
implemented  the  hardware  monitor  network.  Key  factors  which 
were  tested  in  this  phase  were  the  counters  and  timers  for 
the  cpu,  I/O  devices  and  the  channels. 

Validation 

CPESIM  II  validation  had  to  be  general  in  nature. 
CPESIM  II  represents  a  computer  in  the  "general"  sense.  It 
is  not  a  model  of  any  particular  computer  and  can  not  be 
directly  compared  to  one.  The  simulation  should  behave  like 
anyother  computer  in  that  changes  in  the  wor!.» .  id  and 


configuration  of  the  system  should  have  an  affect  on  the 
turnaround  time.  In  additio’  ,  CPESIM  II  could  not  be 
directly  compared  to  CPESIM  ior  two  reasons.  rirst,  the 
alogorithms  used  in  CPESIM  II  are  different  t..  n  the 
algorithms  used  in  CPESIM.  Secondly,  because  of  a  SLAM 
..imitation  on  the  Cyber,  only  about  50  jobs  could  be  handled 
by  the  simulation.  Fifty  jobs  was  not  sufficient  to  perform 
a  jetail  validation  of  the  syste  . 


V.  Summary  and  Recommendations 


Summary 

This  thesis  provides  a  simulation  which  aids  in  the 
teaching  of  CPE  to  graduate  students.  The  simulation,  along 
with  instructor  provided  scenarios,  gives  the  student  "hands 
on"  experience  in  analyzing  an.  solving  performance  problems 
in  a  computer  center. 

The  simulation  models  a  central  memory  architecture 
which  has  multiple  processors,  continuous  memory,  1/0 
channels,  allocatable  I/O  devices,  and  unal locatable  I/O 
devices.  The  operating  system  is  a  basic  multiprocessing, 
multiprogramming,  partioned  memory  operating  system.  The 
user  is  allowed  to  ..odify  the  configuration  of  the  basic 
8  stem  by  changing  the  input  -  on  5 igur a t ion  file.  The 
configuration  file,  along  with  a  workload  data  file,  is 
needed  to  execute  the  simulation.  The  output  of  each 
simulation  run  will  consist  of  account 'ng  data,  and  if 
requested,  monitor  data.  If  the  monitors  are  used,  the  user 
has  the  choice  of  a  software  monitor  and/or  hardware 
monitor.  The  software  monitor  records  the  length  of  time  a 
job  spends  in  the  queues.  The  software  monitor  requires 
computer  resources  like  any  other  job.  The  hardware  monitor 
is  an  event  driven  monitor  which  can  track  timer  and  counter 


data  of  the  cpus,  I/O  devices  and  channels 


Unlike  the 


software  monitor,  the  hardware  monitor  does  not  compete  for 
computer  resources  . 

The  simulation  does  not  Implement  inte 'active 
processing,  computer  networking  or  dynamic  memory 
allocation.  These  limitations  were  imposed  upon  the 
simulation  because  of  the  lack  of  time.  These  limitations 
can  be  resolved  in  follow-on  ef torts,  but  at  the  present 
time  the  simulation  simulates  the  arrival  of  jobs  by  a  card 
reader  and  the  printing  of  jobs  by  a  single  line  printer. 

Recommendations 

CPESIM  II  was  designed  to  be  the  nucleus  of  a  tool 
to  teach  CPE.  Several  enhancements  to  both  tu®.  simulation 
and  Its  environment  are  are  readily  apparent.  The  following 
enhancements  could  be  made  to  the  simulation  software: 

1.  Most  of  today's  large  computer  systems  are 
interactive  In  nature.  The  problems  associated  with  an 
interactive  system  cannot  be  addressed  with  the  present 
system,  so  the  adding  of  remote  terminals  is  a  logical 
extension  to  the  model. 

2.  Another  area  of  improvement  is  in  the  world  of 
networking  or  distributive  processing.  With  the  advent  of 
minicomputers  and  microcomputers,  more  and  more  networks 
have  appeared.  It  is  likely  that  the  students  will  be 
Involved  with  networks  and  it  wt  aid  be  beneficial  if  they 
could  study  the  problems  associated  with  networks. 
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3.  During  the  development  of  the  simulation, 
simplifications  of  a  real  computer  system  had  to  be  made. 

One  of  the  major  simplifications  that  was  made  was  that  I/O 
requests  were  evenly  distributed  throughout  the  execution  of 
a  job.  It  : s  unlikely  that  a  job's  I/Os  are  evenly 
distributed.  The  clustering  affect  of  I/Os  could  easily  be 
implemented  by  changing  the  subroutine  "USER". 

In  addition  to  the  improvements  that  could  be  made 
in  the  simulation,  the  following  are  logical  extensions  to 
the  front  and  back  e~d  of  the  simulation: 

1.  The  generation  of  the  workload  data  still  uses 
the  original  workload  generation  program  (ref  7).  This 
program  can  only  generate  one  job  stream  at  a  time  and  it  is 
a  problem  to  generate  a  multiple  job  stream  workload  data 
file.  The  ability  to  easily  generate  multiple  job  streams 
and  changing  the  program  from  SIMSCRTPT  II  to  SLAM  is  a 
logical  extension. 

2.  The  post  processing  of  the  accounting,  software 
monitor  an-  hardware  monitor  data  iles  also  needs  to  be 
written. 

3.  The  tracking  of  the  changes  that  a  student  makes 
to  the  simulated  environment  is  presently  a  manual  task  by 
the  instructor.  A  database  which  would  track  the  changes  to 
the  configuration  would  greatly  benefit  the  instructor.  In 
addition  this  data  base  could  assess  charges  to  the  student 
for  using  different  pieces  of  equipment  and  making  changes 


to  the  system.  By  adding  this  change  the  student  would  have 
incentive  to  carefully  analyze  the  problem  prior  to  making 
changes. 

A  final  recommendation  would  be  to  do  a  careful  time 
and  space  analysis.  Typical  of  most  simulations,  CPESIM  II 
takes  up  a  large  amount  of  computer  time  and  space.  A 
typical  simulation  run  of  50  jobs  with  an  average  simulated 
cpu  time  of  150  second?  and  1000  I/Os  takes  about  400  Cyber 
seconds.  Because  of  the  time  and  space  required,  a  careful 
analysis  of  the  time  and  space  required  by  different 
simulated  cont  durations  and  workloads  should  be  done  when 
SLAM  is  b>:  lee  to  handle  more  ‘han  50  jobs  at  one  time. 


Bibliography 


- .  An  Introduction  to  SADT,  Structure  Analysis 

ard  Design  Technique,"  9022-78R,  Softech,  Inc.,  460 
Totten  Pond  Road,  Wltham,  MA  02154,  November  1976. 


- .  FOR  TRAN  Extended  Vers  on  5_  Reference 

Manual  (Revision  C),  Control  Data  Corp,  Sunnyvale,  CA, 
1960.  (60481300). 


- .  S IMCR I PT  1 1 . 5  Reference  Handout, 

CACI,  Inc.,  12011,  San  Vicente  Blvd.,  Los  Angeles,  CA 
90049,  March  1976. 


Ageloff,  Roy  and  Mojena,  Richard.  Applied  FORTRAN  7 7 
Featuring  Sturctured  Programming .  Wadsworth  Pubilishing 
Company,  Belmont,  CA,  1981. 


Baer,  Jean-Loup.  Compute  r  Systems  Ar ..  n  i  t  ec  t  ur  e  . 
Computer  Science  Press,  Inc.,  11  Taft  Court,  Rockville, 
Maryland  20850,  1980. 


Bell,  T.  E.,  e^  a_l.  Computer  Performance  Analysis: 
Fram-»wo  rk  a  nd  Initial  Phases  for  a  Perf  o  rmance 
Impr  ovement  Effort.  A  Report  prepared  for  United  States 
Air  Force  Project  Rand,  November,  1972.  (R-549-1-PR  . 


Lewis,  Paul  C.  A  Computer  Pe  r f o  rmance  Evaluation 
Education  Tool.  MS  thesis.  W r igh t-Pa t t er s on  AFB,  Ohio; 
Air  Force  Institure  of  Technology,  Jecember,  1979.  (AD 
A080154)  . 


Madnick,  Stuart  E.  and  John  J.  Dovovan.  Operating 
Systems  .  McGraw-Hill  Book  Company,  New  York,  NY,  1974 
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NODE:  S.3  TITLE:  Disk  Network  NUMBER: 
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NODE:  5.4  TITLE:  Channel  Network  NUMBER 


Initialization  Routine 

1.  Read  CONFIG  FILE 

2.  Initialize  the  input,  hold,  output  queues  and  channels 
to  have  0  resources  to  start  with. 

3.  Initialize  all  'XX'  variables. 

4.  Initialize  memory  partition  sizes. 

5.  Initialize  tape  speeds  and  set  them  to  free  status. 

6.  Initialize  disks  to  be  a)  available, 

b)  their  associated  channel  connections 

c)  and,  define  disk  speeds. 

7.  Initialize  disk  count,  disk  start  time,  and  disk  time 
for  each  disk  to  0  (used  in  H/W  monitor). 

8.  Inltailize  tape  count,  tape  start  time,  and  tape  time 
for  each  tape  to  0  (used  in  H/W  monitor). 

9.  Open  job  stream,  s/w  monitor  and  h/w  monitor  files 

10.  Call  ARI V  at  time  0.0 


Subroutine  ARVL  (Job  Arrival  -  Event  1) 

Read  nexi.  job's  atributes  from  workload  file 
Initialize  cpu  time  used  and  i/o  time  used  to  0.0 
Initialize  time  of  last  I/O  and  time  of  last  tape  I/O  to 

Initialize  cpu  time  left  to  cpu  time  required. 

Schedule  job  arrival  into  the  network. 


1.  Set  arrival  time  to  tnow 

2.  Set  memory  size  to  4k 

3.  Set  Job  Type  to  'spooler' 

4.  Set  cpu  time  used  to  total  cpu  time  used  by  the  input 
spooler 

5.  Initialize  all  other  atributes  to  0.0 

6.  Put  spooler  into  holdq 


cpu-s tart-time  -  tnow 
if  h/w-mon  *  'on'  then 

h/w-mon-count  *  h/w-mon-count  +  1 

If  s/w-monitor  not  on  then 
cpu-rat  io  **  1.0 
else 

cpu-ratio  =  .95 

If  JOB-TYPE  -  'user'  then  CALL  USER 

If  JOB-TYPE  -  'input  spooler'  then  CALL  SPOOL 

If  JOB-TYPE  -  'output  spooler'  then  CALL  OSPOL 

If  JOB-TYPE  -  's/w  monitor'  then  CALL  SMON 

If  JOB-TYPE  -  'job  scheduler'  then  CALL  JSCHD 

If  JOB-TYPE  not  equal  to  one  of  the  above  write  error 


Subroutine  USER  (User  CPU  Burst  -  call  by  cpa) 


Calculate  intermediate  variables. 

cpu  time  used  *  cpu  time  required  -  cpu  time  left 
i/o-time  ■  t ime-las t-i /o  +  time-between  /  cpu-ratio 
tape-time  ■  t ime- la s t- t ape  +  time-between-tape  / 
cpu-ration 

/*  check  for  job  complete  */ 

If  (cpu-time-lef t  /cpu-ratio  time-slice)  and 

( (cpu-t ime-lef t  /  cpu-ratio)  (i/o-time))  and 
( ( cpu-t ime-lef t  /  cpu-ratio)  (tape-time))  then 

/*  schedule  completion  of  job  */ 

CALL  SCHDL(7,tnow  +  ( cpu-t ime-le f t  / 
cpu-ratio) , a  tr ib ) 

/*  collect  cpu  timer  data  for  h/w  monitor  */ 

if  h/w-mon  ■  'on'  then 

cpu-timer  *  cpu-timer  +  cpu-time-lef t  / 
cpu-ratio 

return 
end  if 

/*  check  for  disk  io  */ 

If  ((i/o-time)  (tape-time))  and 

((i/o-time)  (tnow  +  time-slice))  then 

/*  schedule  time  of  disk  request  */ 

CALL  SCHDL  ( 8 , i / o- t ime » a t r i b ) 

/*  collect  cpu  timer  data  for  h/w  monitor  */ 
if  h/w-mon  *  'on'  then 

cpu-timer  *  cpu-timer  +  tnow  -  i/o-time 
exit 
end  if 

/*  check  for  tape  i/o  */ 

If  (tape-time  (tnow  +  time-slice))  then 

/*  schedule  time  of  the  tape  request  */ 

CALL  SCHDL  (9, tape-time,. a  trib) 

/*  collect  cpu  timer  data  for  h/w  monitor  */ 
if  h/w-mon  ”  'on'  then 

cpu-timer  ■  cpu-timer  +  tnow  -  tape-time 

If  i 8  none  of  the  above  it  must  be  a  time  out 


Subroutine  JSCHD  (Job  Scheduler  -  called  by  CPU) 


or  I  *  1 ,num-in-holdq  do 
begin 
J  ■  1 

While  (J  .LE.  number-of-partitions )  and 
(found  *  false)  do 

begin 

if  size-of-partion  .GT.  memory-needed  and 
(partion  *  free)  then 

begin 

if  ( num-o f- f r ee-a 1 1 oca table-d evi ces  .G 
a  t r ib ( 6  )  )  then 

begin 

acquire  partition 
memory  size  used  ■  partion  size 
Call  ATAPE  (acquire  number  of  tapes 
required) 

get  job  from  holdq 
insert  job  into  execq 
if  s/w-monitor  ■  'on'  then 
call  userf ( 23  )  ; 
found  ■  true 
end  if 
end  if 
end  while 
end  for 

/*  collect  cpu  timer  data  for  h/w  monitor  */ 
if  h/w-mon  “  'on'  then 

cpu-timer  =  cpu-timer  +  job-sched-cpu-time 

set  job  scheduler  in  execq  flag  to  false 

/*  schedule  the  completion  of  job  scheduler  */ 
CALL  SCHDL( 18 , job-sched-cpu-time ,  atrib) 


Subroutine  SPOOL  (Input  Spooler  -  called  by  CPU) 


/*  collect  cpu  timer  data  for  h/w  monitor  */ 
if  h/w-mon  ■  'on'  then 

cpu-timer  =  cpu-timer  +  s po ol-cpu- t ime 

if  spool-status  *  0  then 
/*  if  start  of  new  job  spooling  */ 
if  num-in-inputq  not  -  0  do 
begin 

copy  job  atributes  from  inputq 
num-cards-lef t  »  cards 

if  s/w-mon  *  'on'  then  call  event(23) 

CALL  SCHDL ( 1 1 , tnow  +  s poo 1-cpu- t ime , a t r ib ) 
end  if 

end  if  spool-status  -  0 

if  spool-status  ■  1 
/*  write  buffer  to  disk  */ 
begin 

/*  schedule  completion  of  cpu  portion  then 
do  i/o  */ 

CALL  SCHDL(8 , tnow  +  spool-cpu-time , a trib) 
end  if 

if  spool-status  -  2  then 
/*  read  cards  onto  disk  */ 
begin 

CALL  SCHDL( 1 1 , tnow  +  s po o 1-cpu-t ime , a t r ib ) 
end  if 


Subroutine  OSPOL  (Output  Spooler  -  called  by 


/*  collect  cpu  timer  data  for  h/w  monitor  */ 
if  h/w-mon  ■  'on'  then 

cpu-timer  ■  cpu-timer  +  spool-cpu-time 

if  ospool-status  =  0  then 
/*  start  of  new  job  */ 
begin 

get  job  from  outq 

if  s/w-mon  *  'on'  then  call  userf(23) 

/  *  do  disk  i/o  *  / 

CALL  SCHDL(8,tnow  +  s po ol-cpu-t ime , a t r ib ) 
end  i  f 

end  if  ospool-status  *  0 

if  os  pool-s  ta  tu s  **  1 
/*  write  buffer  to  printer  */ 
begin 

CALL  SCHDL( 14 , tnow  +  s po o 1-cpu-t ime , a t r ib ) 
end  if 

if  ospool-status  *  2  then 
/*  load  buffer  from  disk  */ 
begin 

/*  do  disk  i/o  */ 

CALL  SCHDL(8,tnow  +  s po ol-cpu-t ime , a t rib ) 
end  if 


CPU) 


C-ll 


Subroutine  SMON  (S/W  Monitor  -  called  by  CPU) 

1.  s/w-mon  “  'on' 

2.  free  cpu  /*  Note  that  the  s/w  monitor  doesn't  take 
cpu  time  */ 


Subroutine  LJSCH  (Load  Job  Scheduler  into  EXECQ  -  Event  5) 


1.  Initialize  job  scheduler  atributes 

a.  Arrival  time  *  tnow 

b.  Job  Name  =  888  (dummy  name) 

c.  Job  Type  *  job  scheduler 

d .  all  others  *  0.0 

2.  Put  job  scheduler  into  EXECQ 

3.  Set  job  scheduler  in  EXECQ  flag  to  true 


C-l  3 


Subroutine  LOSPL  (Load  Out  Spooler  into  HOLD  Q  -  Event  6) 


Subroutine  7  Job  Complete 

If  s/w  mon  *  'on'  then  call  event(23) 

cpu-time-used  *  cp u- t ime-u s e d  +  (tnow  -  cpu-s t a r t- t ime ) 
move  job  into  outq 
Free  cpu 

Free  memory  partion 
Free  tapes 

Put  job-scheduler  into  execq  (if  it  is  already  there) 
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Subroutine  DISKS  (Disk  I/O  -  Event  8) 


1.  cpu-time-used  *  cpu-t ime-used  +  (tnow  -  cpu-s tart-time ) 
cpu-t ime-lef t  ■  cpu- t ime- 1 e f t  -  (tnow  -  cpu-s tar t- t ime ) 

*  cpu-ratio 

start-io  -  tnow 

2.  free  cpu 

3.  Look,  up  next-disk 
Disk  used  •  next-disk 
If  h/w-mon  *  'on'  then 

disk-count(X)  *  d i sk-coun t ( X )  +  I 
d i sk-s ta rt ( X )  -  tnow 

4.  Update  next-disk 

5.  Await  Disk  "X"  (in  SLAM  Disk  Network) 


C-l  6 


Subroutine  9  Tape  I/O 


cpu-time-used  =  cpu-time-used  +  (tnow  -  cpu-start-time) 
cpu-time-lef t  *  cpu-time-lef t  -  (tnow  -  cpu-start-time) 

*  cpu-ratlo 

start-lo  *  tnow 
free  cpu 

Look  up  next-tape 
If  h/w-mon  »  'on'  then 

tape-count(X)  =  t a pe- c oun t ( X )  +  1 

tape-start(X)  =  tnow 

Update  next-tape 

Look  in  matrix  for  channels  for  tape  "X" 

Find  smallest  channel  q  and  put  job  in  channel  q 

Await  data-rate  portion  of  channel 

If  h/w-mon  *  'on'  then 

tape-tlier(X)  =  t ape- t ime r ( X )  +  (tnow  + 
tape-s pe ed ( X ) )  -  t ape-s tart ( X ) 
c  hanne  1- 1  ime  (  q  )  «*  c  hanne  1  - 1  ime  r  (  q  )  +  tape-s  pe  ed  (  X  ) 


CALL  S CHDL ( 4 6 , t now  +  t ape-s pe ed ( X ) , a t r ib ) 


MICROCOPY  RESOLUTION  TEST  CHART 

national  bureau  of  standards -i  963  a 


Subroutine  TIMEO  (Time  Out  -  Event  10) 


f 

I 


1.  cpu-t ime-used  -  cpu-t Ime-used  +  (tnov  -  cpu-star t-tlme ) 

2.  cpu-tlme-lef t  ■  cpu-tiae-lef t  -  (tnov  -  cpu-start-time) 

*  cpu-ratlo 

3.  Free  cpu 

4.  Place  job  back  Into  execq 


( 
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Suroutlne  RCARD  (Read  Cards  into  Buffer  -  Event  11) 


1.  cpu-t lme-used  *  cpu-time-used  +  (tnow  -  cpu-s tart-time ) 

*  cpu-ratio 

Mote:  cpu  time  for  spooling  Is  charged  to  job  but 

Is  not  counted  against  the  job's  cpu  time  required 
to  execute  the  Job. 

2.  If  num-cards-lef t  buff-size  then 

num-cards-read  ”  num-cards-lef t 
else 

num-cards-read  ■  buff-size 

3.  num-cards-lef t  *  num-cards-lef t  -  num-cards-read 

4.  Free  cpu 

5.  /*  Schedule  completion  of  loading  buffer  */ 

CALL  SCHDL( 1 4 , card-speed ,a tr lb) 


: _ -to' 


Subroutine  DCOMP  (Disk  Transfer  Completed  -  Event  12) 


1.  Free  channel  of  portion  job  was  using 

2.  Free  disk 


3.  i/o-tiae-used  «  i/ o-t ime-used  +  (tnow  -  start-io) 

4.  if  JOB-TYPE  -  'user' 

t ime-las t-i/o  •  tnow 
Put  job  back  into  execq 
end  if 

5.  If  JOB-TYPE  ■  'spooler'  then 

begin 

/*  check  for  coapletion  of  spooling  */ 
if  num-carda-lef t  .LE.  0  then 
begin 

spool-status  ■  0 

insert  job  and  its  atributes  into  holdq 
if  num-in-inputq  not  ■  0  then 
begin 

put  spooler  back  into  execq 
end 
else 
begin 

spooleron  ■  0 

free  meaory  partion  of  spooler 
put  job-scheduler  in  execq 
end  if  inputq  not  “  0 

end 

else 

begin 

spool-status  *2  /*  ready  to  read  aore  cards  */ 

put  spooler  back  into  execq 
end  if 

end  if 


6.  If  JOB-TYPE  •  'outspooler'  then 
begin 

ospool-status  ■  l  /*  ready  to  print  buffer  */ 
put  ospooler  back  into  execq 
end  if 
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Subroutine  TCOMP  (Tape  I/O  Completion  -  Event  13) 


1.  Time-last-tape-i/o  «  tnow 

2.  Free  channel  of  portion  job  was  using 

3.  i/o-tine-used  •  i/o-time-used  +  (tnow 

4.  Insert  job  into  execq 


start-io) 


( 
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Subroutine  FULLB 


1.  /*  Ready  to 
spool-status 

2.  Insert  spool 


(Finish  Loading  Buff  w /  Cards 

read  buffer  to  disk  */ 

-  1 

r  back  into  execq 


Event  14) 
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Subroutine  CHANL  (Find  Channel  -  Event  15) 


Look  In  aatrix  for  channels  for  disk  "X" 

Find  smallest  channel  q  and  put  job  In  channel  q 
If  h/w-mon  ■  'on'  then 

channel-count( q )  ■  channel-count( q )  +  1 

Await  data-rate  portion  of  channel  (In  SLAM 
Channel  Network) 


Subroutine  DTRAN  (Disk  Transfer  - 


1.  if  h/w-non  •  'on'  then 

disk-tlaer(X)  ■  disk-tiaer(X)  +  tnow 
disk-speed(X)  -  disk-start(X) 

channel-timer(q)  ”  disk-speed(X) 


Event  16) 


+ 


2.  /*  Schedule  coapletion  of  disk  transfer  */ 

CALL  SCHDL(12, tnow  +  disk-speed(X) .atrib) 


Subroutine  FPRNT  (Finished  Print  Buff  -  EVENT  17) 


If  nua-llnes-lef t  *  0  then 
begin 

os pool-s ta tus  *  0 
release  job  from  outq 
if  s/wmon  ■  on  then  event(23) 
if  nui-in-outq  ■  0  then 
begin 

free  memory-par tion  of  outspooler 
ospool  *  0 
ospooleron  »  0 

put  job  scheduler  into  execq 
else 
begin 

ospool-status  ■  0 
put  outspooler  back  into  execq 
end  if 

end 

else 

begin 

ospool-status  ■  2 
put  outspooler  back  into  execq 
end  if 
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Subroutine  LSMON  (Turn  S/W  Monitor  On  -  Event  21) 


Open  s/w  monitor  raw  data  file 
Insert  s/w  monitor  into  hold  queue 
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Subroutine  ESMON  (Turn  S/M  Monitor  Off 


Close  s/w  monitor  raw  data  file 

Free  memory  partition 

Put  Job  scheduler  into  execq 


Subroutine  SMON  (Write  S/W  Monitor  Data  -  Event  23) 


1.  Write  qname,  (tine-entered  -  tnow),  input-from,  and 
output-to  to  S/W  Monitor  file. 


Subroutine  PBUFF  (Print  Buffer  -  Event  24) 


1.  cpu- t lme— used  ■  c pu-t ime-used  +  ( tnow  —  cpu-start-tlme) 

*  cpu-ratlo 

Note:  cpu  time  for  spooling  Is  charged  to  job  but  Is  not 
counted  against  the  job's  cpu  time  required  to  execute  the 
job. 

2.  Free  cpu 

3.  If  num-lines-lef t  buf -s lze- 1 lnes  then 

num-lines-pr inted  “  num-1 lnes-lef t 
else 

num-llnes-prlnt  •  buf-size-lines 

4.  num~lines-lef t  ”  num-lines-lef t  -  num-lines-prlnted 

5.  /*  schedule  completion  of  printing  */ 

CALL  SCHDL( 17 , tnow  +  num-llnes-prlnted  * 

printer-speed,  atrib) 
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c ********************************************************** 

c  * 

C  DATE:  5  DEC  1983  * 

C  * 

C  VERSION:  1.0  * 

C  * 

C  TITLE:  CPESIM  II  Discrete  File  * 

C  FILENAME:  SIMF  * 

C  AUTHOR:  David  L.  Owen  * 

C  SOFTWARE  SYSTEM:  CPESIM  II  * 

C  USE:  Used  in  combination  with  SIMS  to  run  CPESIM  * 

C  CONTENTS:  EVENTS  1*24,  INTLC,  EVENT,  ATAPE,  * 

C  JSCHD,  OSPOL,  SPOOL,  SSMON,  USER,  USERF  * 

C  FUNCTION:  Performs  the  discrete  portion  of  CPESIM* 

C  * 

C ********************************************************** 

C 

PROGRAM  MAIN( INPUT , OUTPUT , TAPE  5-INPUT , TAPE6-OUTPUT , TAPE 7, TAPE 1 1 , 
1TAPE 1 2 , TAPE 13, TAPE 14, TAPE 15) 

DIMENSION  NSET(20000) 

COMMON/SCOM1/  ATRIB( 100) , DD( 100) , DDL( 100) ,DTN0W  , II ,MFA, MSTOP 
1 , NCLNR , NCRDR , NPRNT, NNRUN , NNSET , NTAPE , SS ( 100) 
1,SSL(100),TNEXT,TN0W,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10, 7 ) ,  DCNT(iO),  DSTRT(IO),  DSUM(10),DFIN(10), 

1  CCNT(5) ,  CSUM(5) ,  CFIN(5),  C$TRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C0MM0N/UC0M3/TAP( 10,7),  TCNT(IO),  TSTRT(IO),  TSUM(10),TFIN(10) 
COMMON/UCOM4/CARD(6) ,PRNTR(6) 

C0MM0N/UC0M5 / IQ ( 5 ) 

COMMON  QSET( 20000) 

EQUIVALENCE  (NSET( 1 ) , QSET( 1 ) ) 

NNSET  -  20000 
NCRDR  -  5 
NPRNT  -  6 
NTAPE  -  7 
CALL  SLAM 
STOP 
END 
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Q******** **************  ************************************ 


c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  INTLC  * 

C  EVENT  NUMBER:  N/A  * 

C  FUNCTION:  Initialize  simulation  * 

C  FILES  READ:  CONFIG  * 

C  FILES  WRITTEN:  none.  * 

C  EVENTS  CALLED:  21,  20,  1  * 

C  CALLING  EVENTS  ne.  * 

C  SUBROUTINES  CALLED:  ALTER  * 

C  CALLING  SUBROUTINES:  none.  * 

C  * 

C  AUTHOR:  David  L.  Owen  * 

C  HISTORY:  n/a.  * 

C  * 


C******** ************************************************** 

SUBROUTINE  INTLC 

COMMON/SCOM1/  ATRIB( 100) ,DD( 100) , DDL( 100) ,DTN0W , II,MFA,MSTOP 
1 ,  NCL* ,  NCRDR ,  NFRNT,  N»UN ,  NNSET ,  NTAPE ,  SS(  1 00  ) 
l ,  S  S  L  ( 1 00  ) ,  T  NE  XT ,  TNOW  ,  XX  ( 1 00  ) 

CQMM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN(10) , 
1  CCNT(5),  CSUM(5) ,  CFIN(5),  CSTRT<5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

CoMMON/UCOM3/TAP( 10, 7 ) ,  TCNT(IO),  TSTRT(IO),  TSUM(10),TFIN(10) 
COMMON/UCOH4/CARD<6 ) , PRNTR(6 ) 

C0MM0N/UC0M5/IQ<5) 

C0MM0N/UC0M6/IPR0BE( 5 ) 

DIMENSION  DSPEED( 10) ,DCOST( 10) ,TSPEED( 10) , TC0ST( 10) , 

1  CSPE  ED ( 5 ) , CCOS  T( 5 ) , 

l  PART2(20) , IDISK( 10,5), 

1  *°E( 10^5) ,  IREAD(5) ,  IIHINT(5),ISWMQ( 5), IHJCNT(5) 

CHARACTER  DNAME( 10)*20,  TNAME(10)*20,  CNAME<5)*20, 

1  RNAME*20, PNAME*20, UNAME*20, SANSWR*1 , HAN9WR*1 ,CRATE*20 

REAL  HSEC 

PARAMETER  (FREE  -  0.0,  BUSY  -  1.0,  OFF  -  0.0,  ON  -  1.0) 

C***  OPEN  CONFIGURATION  FILE 

0PEN(UNIT-1 5 , FILE-'TAPE 15' ,STATUS-'OLD' , ERR-990 , IOSTAT-IOS , 

1  ACCESS-'SEQUENTLAL' , FORM- 'FORMATTED' ) 


C***« ******* 
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C***  READ  DATA  FROM  CONFIGURATION  FILE  *** 

C* ******************************* ******************** 


C***  NUMBER  OF  CPUS 

READ  (UNIT-15,FMT-100,IOSTAT-I0S,ERR-999)NCPUS 
C***  TYPE  OF  CPU 

READ  (UNIT-1 5, FMT-101 , IOSTAT-IOS, ERR-999) 

1  UNAME , US PEED , UCOST 

C***  TIME  SLICE 

READ  (UNIT-15, FMT-104, IOSTAT-IOS, ERR-999)TSLICE 
C***  READ  NUMBER  OF  MEMORY  PARTIONS 

READ  (UNIT-15, FMT-lOO, IOSTAT-IOS , ERR-999)NPARTS 
C***  READ  SIZE  OF  MEMORY  PARTIONS 
DC  40  I-l.NPARTS 

READ  (UNIT-1 5, FMT-104 , IOSTAT-IOS , ERR-999 )PART2 ( I ) 

40  CONTINUE 

C***  READ  NUMBER  OF  CHANNELS 

READ  (UNIT-15, FMT-lOO, IOSTAT-IOS, ERR-999 )NCHAN 
C***  READ  CHANNEL'S  NAME,  SPEED  AND  COST 
DO  41  I-l.NCHAN 

READ  (UNIT-15, FMT-101, IOSTAT-IOS, ERR-999) 

1  CNAME(I) ,CSPEED(I) ,CCOST(I) 

41  CONTINUE 

C***  READ  NUMBER  OF  DISKS 

READ  (UNIT-15, FMT-lOO, IOSTAT-IOS, ERR-999)NDISK 
C***  READ  DISK'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
DO  42  1-1 , NDISK 

READ  (UNIT-15, FMT-105, IOSTAT-IOS, ERR-999) 

1  DNAME( I ) , DSPEED( I ) , DCOST( I ) , ( IDISK( I , K) , K-l , 5 ) 

42  CONTINUE 

C***  READ  NUMBER  OF  TAPES 

READ  (UNIT-1 5 , FMT-1 00 , IOSTAT-IOS , ERR-999 )NTAPE 
C***  READ  TAPE'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
DO  43  I-l.NTAPE 

READ  (UNIT-1 5, FMT-105, IOSTAT-IOS , ERR-999) 

1  TNAME(I) ,TSPEED(I) ,TCOST(I) ,(ITAPE(I , K) ,K-1 ,5) 

43  CONTINUE 

C***  READ  CARD  READER'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
READ  (UNIT-15, FMT-105, IOSTAT-IOS, ERR-999) 

1  RNAME,RSPEED,RCOST, ( IREAD(K) ,K-1 , 5) 

C***  READ  LINE  PRINTER'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
READ  (UNIT-1 5 , FMT-1 05 , IOSTAT-IOS , ERR-999 ) 

1  PNAME.PSPEED.PCOST, (IPRINT(K) ,K-1 ,5) 

C***  READ  IF  SOFTWARE  MONITOR  IS  DESIRED 

READ  ( UNIT-1 5, FMT-1 06, IOSTAT-IOS , ERR-999 ) SAN SWR 
C***  READ  START  TIME,  STOP  TIME,  AND  QUEUES  IF  DESIRED 
IF  (SANSWR  .EQ.  'Y')  THEN 

READ  (UNIT-15, FMT-107, IOSTAT-IOS, ERR-999) 

1  ISDAY, ISHOUR, ISMIN, SSEC 

READ  (UNIT-15, FMT-107, IOSTAT-IOS, ERR-999) 


D-4 


1 


1  JSDAY, JSHOUR , JSMIN, SSSEC 

READ  (UNIT-15, FMT-109, IOSTAT-IOS, ERR-999)(ISWMQ(I), 1-1,5) 
END  IF 

C***  READ  IF  HARDWARE  MONITOR  IS  DESIRED 

READ  (UNIT-15, FMT-106, IOSTAT-IOS ,ERR-999)HANSWR 
C***  READ  START  TIME,  STOP  TIME,  TIMERS  AND  COUNTERS  IF  DESIRED 
IF  (HANSWR  .EQ.  'Y')  THEN 

READ  ( UN IT- 1 5 , FMT- 1 0  7 , IOS  TaT- IOS , ERR -999 ) 

1  IHDAY, IHHOUR, IHMIN.HSEC 

READ  (UNIT-1 5, FMT-1 07, IOSTAT-IOS, ERR-999) 

1  JHDAY.JHHOUR, JHMIN.SHSEC 

READ  (UNIT-1 5, FMT-104 , IOSTAT-IOS , ERR-999 )RATEW 
READ  (UNIT-1 5 , FMT-1 09 , IOSTAT-IOS , ERR -999 ) 

1  IHTIM1,IHTIM2,(IWCNT(I), 1-1,3) 

END  IF 

100  F0RMAT(I2 ) 

101  FORMAT(A20,1X,F10.4,1X,F8.2) 

103  F0RMAT(I5) 

104  F0RMAT(T22,F10.4) 

105  FORMAT(A20,1X,F10.4,1X,F8.2,1X,5(1X,II)) 

106  FORMAT(Al) 

107  F0RMAT(T22, 3(14 , IX) , F8.4 ) 

109  FORMAT(5(I2, IX)) 

PRINT  *, "CONFIGURATION  FILE  READ  SUCCESSFULLY' 

C**************************************************** 

C***  PRINT  DATA  FROM  CONFIGUARATION  FILE  *** 

C**************************************************** 

C***  NUMBER  OF  CPUS 
PRINT  * , NCPUS 
C***  TYPE  OF  CPU 

PRINT  * , UNAME , USPEED , UCOST 
C***  TIME  SLICE 

PRINT  * , 'TIME  SLICE  -  '.TSLICE 
C***  PRINT  NUMBER  OF  MEMORY  PARTIONS 
PRINT  * , NPARTS 

C***  PRINT  SIZE  OF  MEMORY  PARTIONS 
DO  240  1-1, NPARTS 
PRINT  * , I , PART2 ( I ) 

240  CONTINUE 

C***  PRINT  NUMBER  OF  CHANNELS 
PRINT  *,NCHAN 

C***  PRINT  CHANNEL'S  NAME,  SPEED  AND  COST 
DO  241  1-1 , NCHAN 

PRINT  *,CNAME(I),CSPEED(I) , CCOST(I) 
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241  CONTINUE 

C***  PRINT  NUMBER  OF  DISKS 
PRINT  *,NDISK 

C***  PRINT  DISK'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
DO  242  I-l.NDISK 

PRINT  *,DNAME(I),DSPEED(I),DCOST(I), 

1  ( IDISK( I , K) , K"1 , 5 ) 

242  CONTINUE 

C***  PRINT  NUMBER  OF  TAPES 
PRINT  *,NTAPE 

C***  PRINT  TAPE'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
DO  243  I-l.NTAPE 

PRINT  *,TNAME(I) ,TSPEED(I ) , 

1  TCOST(I) , (ITAPE(I ,K) , K“1 ,5) 

243  CONTINUE 

C***  PRINT  CARD  READER'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECT 
PRINT  * ,RNAME , RSPEED ,RCOST , 

1  (IREAD(K) ,K»1 , 5) 

C***  PRINT  LINE  PRINTER'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
PRINT  *,PNAME,PSPEED,PCOST, 

1  (IPRINT(K) ,K“1, 5) 

C***  PRINT  IF  SOFTWARE  MONITOR  IS  DESIRED 
PRINT  *,SANSWR 

C***  PRINT  START  TIME,  STOP  TIME,  AND  QUEUES  IF  DESIRED 
IF  (SANSWR  .EQ.  'Y')  THEN 

PRINT  *, ISDAY, ISHOUR , ISMIN, SSEC 
PRINT  *, JSDAY, JSHOUR, JSMIN,SSSEC 
PRINT  *,(ISWMQ(I), 1-1,5) 

END  IF 

C***  PRINT  IF  HARDWARE  MONITOR  IS  DESIRED 
PRINT  *,HANSWR 

C***  PRINT  START  TIME,  STOP  TIME,  TIMERS  AND  COUNTERS  IF  DESIRED 
IF  (HANSWR  .EQ.  'Y')  THEN 

PRINT  *, IHDAY , IHHOUR , IHMIN.HSEC 
PRINT  *, JHDAY, JHHOUR, JHMIN, SHSEC 
PRINT  * .RATEEW 

PRINT  *, IHTIM1 , IHTIM2 , (Irtf  CNT( I) , I“1 ,3) 

END  IF 

C******* ********************************************* 

C***  INITIALIZE  SIMULATION  VARIABLES  *** 

C* *******  ******************************************** 


C***  MAKE  THE  INPUT  QUEUE  HAVE  0  RESOURCES  AT  START  OF  PROGRAM 
CALL  ALTER (1,-1) 

C***  MAKE  THE  HOLD  QUEUE  HAVE  0  RESOURCES  AT  START  OF  PROGRAM 
CALL  ALTER (2,-1) 
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C***  CONFIGURE  MODEL  TO  HAVE  THE  RIGHT  NUMBER  OF  CPUS 
NCPUS  -  NCPUS  -  1 
CALL  ALTER (3, NCPUS) 

C***  MAKE  THE  OUTPUT  QUEUE  HAVE  0  RESOURCES  AT  START  OF  PROGRAM 
CALL  ALTER (4,-1) 


C***  INITIALIZE  SPOOLERON  FLAG 
XX(1)  -  OFF 

C***  INITIALIZE  S/W  MONITOR  FALG 
XX(2)  -  OFF 

C***  INITIALIZE  NUMBER  OF  MEMORY  PARTIONS 
XX(3)  -  NPARTS 

C***  INITIALIZE  PARTITION  SIZES  AND  STATUS 
DO  5  I»1,XX(3) 

PART( 1,1)  -  PART2(I) 

PART(I,2)  -  FREE 

5  CONTINUE 

TEMP  -  XX(3)  +  1 
DO  6  I*TEMP,20 
PART(I.l)  -  0. 

PART(I,2)  -  BUSY 

6  CONTINUE 

C***  INITIALIZE  THE  CPU  TO  RUN  AT  100?  CAPACITY 

C***  NOTE:  WHEN  S/W  MON  IS  RUNNING  IT  GETS  SET  TO  95Z  BY  SSMON 
XX(5)  -  1.0 

C***  INITIALIZE  RELATIVE  CPU  RATIO 
XX(6)  -  USPEED 

C***  INITIALIZE  TIME  SLICE  (IN  SECONDS) 

XX(7)  -  TSLICE 

C***  INITIALIZE  NUMBER  OF  TAPE  DRIVES 
XX(9)  -  NTAPE 

C***  INITIALIZE  NUMBER  OF  AVAILABLE  TAPE  DRIVES 
XX(10)  -  XX( 9) 

C***  INTALIZE  TAPES  SPEED  AND  STATUS 
DO  7  I»1,XX(9) 

TAPE (1,1)  -  TSPEED(I) 

TAPE (1,2)  -  FREE 
TAPE (1,3)  -  0. 

7  CONTINUE 

C***  INITIALIZE  TAPES  CHANNEL  CONNECTIONS  AND  SPEED 
DO  11  I-1,XX(9) 

DO  60  K-1,5 
TAP(I,K)  -  ITAPE(I.K) 

60  CONTINUE 

TAP(I,6)  -  TSPEED(I) 
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TAP(I,7)  -  0. 

11  CONTINUE 

C***  INITIALIZE  NEXT  TAPE 
XX(24)  -  0. 

C***  INITIALIZE  JOB  SCHEDULER  IN  EXECQ  FLAG 
XX(ll)  -  OFF 

C***  INITIALIZE  OSPOOLERON  FLAG 
XX( 12)  -  OFF 

C***  INITIALIZE  CPU  TIME  REQUIRED  FOR  JOB  SCHEDULER 
XX(13)  -  3.0 

C***  INITIALIZE  CPU  TIME  FOR  INPUT  SPOOLER  TO  EXECUTE 
XX(14)  -  .001 

C***  INITIALIZE  INPUT  SPOOLER  STATUS  TO  A  NEW  JOB 
XX(15)  -  0.0 

C***  INITIALIZE  OUTPUT  SPOOLER  STATUS  TO  A  NEW  JOB 
XX(16)  -  0.0 

C***  INITIALIZE  BLOCK  SIZE  (BYTES) 

XX(17 )  -  1024. 

C***  INITIALIZE  CARD  READER  SPEED  (CARDS/MINUTE) 
XX(18)  -  RSPEED 

C***  INITIALIZE  CARD  RECORD  SIZE  (BYTES) 

XX(19)  -  80. 

C***  INITIALIZE  CARDS  PER  BUFFER 

XX(20)  -  NINT((XX(17)  /  XX(19))  -  .5) 

C***  INITIALIZE  CARD  READER  SPEED  AND  CHANNELS 
DO  64  1-1,5 

CARD(I)  -  IREAD(I) 

64  CONTINUE 

C***  INITIALIZE  NEXT  DISK 
XX(21)  -  1 

C***  INITIALIZE  NUMBER  OF  DISK  DRIVES 
XX(22)  -  NDISK 

C***  INITIALIZE  DISKS  CONNECTIONS  AND  SPEEDS 
DO  8  1-1 ,XX(22) 

DO  61  K-1,5 
DISK(I.K)  -  IDISK(I.K) 

61  CONTINUE 

DISK(I,6)  -  DSPEED(I) 

8  CONTINUE 

C***  INITAILIZE  NUMBER  OF  CHANNELS 
XX(23)  «  NCHAN 

C***  SET  CHANNEL  DATA  RATE  FLOW 
DO  65  1*1 , NCHAN 
ITEMP  -  CSPEED(I) 

ITEMP2  -30+1 

CALL  ALTER (ITEMP2, ITEMP) 
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65 


CONTINUE 


C***  INITIALIZE  PRINTER  SPEED  (LINES  PER  MINUTE) 

XX(25)  -  PSPEED 

C***  INITIALIZE  LINE  RECORD  SIZE  (BYTES) 

XX(26)  -  132. 

C***  INITIALIZE  LINES  PER  BUFFER 

XX(27)  -  NINT(XX(I7)  /  XX(26)  -  .5) 

C***  INITIALIZE  LINE  PRINTER  CHANNEL  CONNECTIONS 
DO  62  1-1,5 

PRNTR(I)  -  IPRINT(I) 

62  CONTINUE 

C***  INITIALIZE  H/W  MONITOR  FUG 
XX(30)  -  OFF 

C***  INITIALIZE  CPU  COUNTER  FOR  H/W  MONITOR 
XX(3L)  -  0. 

c***  INITIALIZE  CPU  SUM  FOR  H/W  MONITOR 
XX(32)  -  0. 

C***  INITIALIZE  H/W  MONITOR  START/STOP  TIME  AND  INTERVAL 
IF  (HANSWR  .NE.  'Y')  THEN 

C*  INTIALIZE  TO  INFINITE  AND  NO  PROBE  CONNECTIONS 

XX(33)  -  999999999. 

XX(34)  -  999999999. 

XX(35)  -  999999999. 

IPROBE(l)  -  0 
IPR0BE(2)  -  0 
IPR0BE(3)  -  0 
IPR0BE(4)  -  0 
IPR0BE(5)  -  0 
ELSE 

XX(33)  -  (IHDAY  *  86400.)  +  (IHHOUR  *  3600.)  + 

I  (IHMIN  *  60.)  +  HSEC 

XX(34)  -  (JHDAY  *  86400.)  +  (JHHOUR  *  3600.)  + 

1  ( JHMIN  *  60.)  +  SHSEC 

XX(35)  -  RATEIW 
IPROBE(l)  -  IHTIM1 
IPR0BE(2)  -  IHTIM2 
IPR0BE(3)  -  IH4CNT(1) 

I  PROBE  (4)  -  I!WCNT(2) 

IPR0BE(5)  -  IH#CNT(3) 

END  IF 

C***  INITIALIZE  CPU  START  TIME  FOR  H/W  MONITOR 
XX(36)  -  -1.0 

C***  INTIALIZE  CPU  FIN  TIME  FOR  H/W  MONITOR 
XX(37)  -  0. 

C***  INITIALIZE  TOTAL  CPU  TIME  USED  BY  INPUT  SPOOLER 
XX(40)  -  0. 


c*** 

c*** 

c *** 


98 

C*** 

C*** 

C*** 

C*** 

c*** 

c *** 
c*** 


INITIALIZE  TOTAL  CPU  TIME  USED  BY  OUTPUT  SPOOLER 
XX(41)  -  0. 

INITIALIZE  TOTAL  CPU  TIME  USED  BY  JOB  SCHEDULER 
XX(42)  -  0. 

INITIALIZE  S/W  MONITOR  START/STOP  TIME  AND  QUEUES 
IF  ( SANSWR  .NE.  'Y')  THEN 
XX(43)  -  999999999. 

XX(44)  -  999999999. 

IQ(1)  -  0 
IQ(2)  -  0 
IQ(3)  -  0 
IQ(4)  -  0 
IQ(5)  -  0 
ELSE 

XX(43)  -  (ISDAY  *  86400.)  +  (ISHOUR  *  3600.)  + 
1  (ISMIN  *  60.)  +  SSEC 

XX(44)  -  ( JSDAY  *  86400.)  +  (JSHOUR  *  3600.)  + 
1  ( JSMIN  *  60.)  +  SSSEC 

DO  98  1-1,5 

IQ(I)  -  ISWMQ(I) 

CONTINUE 
END  IF 


OPEN  JOB  STREAM  FILE 

0PEN(UNIT-1 1 ,  FILE -'TAPE  II '.STATUS- "'OLD'  , 

1  ACCESS-'SEQUENTIAL', FORM-'FORMATTED') 

OPEN  ACTIVITY  LOG  FILE 

OPEN(UNIT-12,FILE-'TAPE12',STATUS-'NEW', 

1  ACCESS-'SEQUENTIAL' , FORM- ' FORMATTED ' ) 

IF  (SANSWR  .EQ.  'Y')  THEN 
OPEN  S/W  MONITOR  DATA  FILE 
0PEN(UNIT-1 4, FILE-'TAPE 14' , STATUS- 'NEW  ' , 

1  ACCESS-'SEQUENTIAL' , FORM- 'FORMATTED' ) 

SCHEDULE  START  OF  S/W  MONITOR 
CALL  SCHDL(2 1 ,XX(43) , AIR IB) 

END  IF 


IF  (HANSWR  .EQ.  'Y')  THEN 
OPEN  H/W  MONITOR  DATA  FILE 
OPEN(UN IT-1 3 , FILE-'TAPE 1 3 ', STATUS- 'NEW  ' , 
l  ACCESS- 'SEQUENTIAL '.FORM- 'FOR MATTED') 

SCHEDULE  START  OF  H/W  MONITOR 
CALL  SCHDL(20,XX(33),ATRIB) 

SCHEDULE  STOP  OF  H/W  MONITOR 
CALL  SCHDL(20,XX(34) ,ATRIB) 
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860 

C*** 

990 

999 


END  IF 

DO  860  1*1,44 

PRINT  *,'XX(',I,')  -  ',XX(I) 

CONTINUE 

SCHEDULE  THE  READING  OF  THE  FIRST  JOB'S  A TRIBUTES 
CALL  SCHDL(1,0. ,ATRIB) 

RETURN 

PRINT  *, 'ERROR  IN  OPENING  CONFIG  FILE  IOSTAT  -  ',IOS 
RETURN 

PRINT  *, 'ERROR  IN  READING  CONFIG  FILE  IOSTAT  =  '.IOS 

RETURN 

END 


* 


D-Il 


I 


DATE:  5  DEC  1983 
VERSION:  1.0 


NAME:  EVENT 
EVENT  NUMBER: 


N/A 


* 

* 

* 

* 

* 

* 


C* ************ ********************************************* 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C* ********************************** *********************** 


FUNCTION:  CALLS  DIFFERENT  EVENTS  ACCORDING  TO  THE  * 
EVENT  NUMBER  PASSED. 

FILES  READ:  NONE. 

FILES  WRITTEN:  NONE 
EVENTS  CALLED:  1-24 
CALLING  EVENTS:  ALL 
SUBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  ALL 


AUTHOR : 
HISTORY: 


DAVID  L.  OWEN 
N/A 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  EVENT(I) 

COMMON / SCOM 1 /  ATRIB( 100) ,DD(100) ,DDL( 100) .DTNCW  , II .MFA.MSTOP 
1 , NCLNR , NCRDR , NPRNT, NNRUN , NNSET , NTAPE , SS ( 1 00  ) 

1 , SSL( 100 ) , TNEXT , TNOW , XX ( 1 00 ) 


GO  TO  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17, 
1  18,19,20,21,22,23,24),! 


C***  ARRIVAL  OF  JOB  AT  CARD  READER 
1  CALL  ARVL 

RETURN 


C***  pur  INPUT  SPOOLER  INTO  HOLD  QUEUE 

2  CALL  ISPO 

RETURN 

C***  pur  JOB  INTO  INPUT  QUEUE 

3  CALL  ENT1 

RETURN 

C***  PERFORM  CPU  BURST 

4  CALL  CPU 

RETURN 

C***  LOAD  JOB  SCHEDULER  INTO  EXECUTE  QUEUE 

5  CALL  LJSCH 
RETURN 

C***  LOAD  OUTPUT  SPOOLE  INTO  SYSTEM 
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6  CALL  LOSPL 
RETURN 

C***  USER  JOB  COMPLETE 

7  CALL  JCOMP 
RETURN 

C***  PERFORM  DISK  I/O 

8  CALL  DISKS 
RETURN 

C***  PERFORM  TAPE  I/O 

9  CALL  TAPES 
RETURN 

C***  USER  JOB  TIME-OUT 

10  CALL  TIMEO 
RETURN 

C***  READ  CARDS  INTO  BUFFER 

11  CALL  RCARD 
RETURN 

C***  DISK  TRANFER  COMPLETED 

12  CALL  DCOMP 
RETURN 

C***  TAPE  I/O  COMPLETION 

13  CALL  TCOMP 
RETURN 

C***  FULL  BUFFER 

14  CALL  FULLB 
RETURN 

C***  FIND  CHANNEL 

15  CALL  CHANL 
RETURN 

C***  DISK/TAPE  TRANSFER 

16  CALL  DTRAN 
RETURN 

C***  FINISHED  PRINTING  BUFFER 

17  CALL  FPRNT 
RETURN 

C***  COMPLETION  OF  JOB  SCHEDULER 

18  CALL  JSCOM 
RETURN 
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* 


C***  WRITE  ACCOUNTING  DATA  TO  DISK  FILE 

19  CALL  ACTLG 
RETURN 

C***  H/W  MONITOR  COLLECTION 

20  CALL  H4MON 
RETURN 

C***  LOAD  S/W  MONITOR  INTO  HOLD  QUEUE 

21  CALL  LSMON 
RETURN 

C***  END  OF  S/W  MONITOR  TRACE 

22  CALL  ESMON 
RETURN 

C***  WRITE  S/W  MONITOR  DATA  TO  DISK 

23  CALL  SMON 
RETURN 


C***  PRINT  BUFFER 
24  CALL  PBUFF 
RETURN 


c* ************* ******************************************** 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  ARVL  * 

C.  EVENT  NUMBER:  1  * 

C  FUNCTION:  READS  JOBS  ATTRIBUTES  AND  SCHEDULES  THE* 

C  THE  ARRIVAL  TIME  OF  THE  JOB  * 

C  FILES  READ:  WORKDES.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  3  * 

C  CALLING  EVENTS:  NONE.  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C* ********************************* ************************ 

SUBROUTINE  ARVL 

C0MM0N/SC0M1 /  ATRIB(100),DD(100),DDL(100),DTNOW ,II,MFA,MSTOP 
1 , NCLNR , NCRDR , NPRNT, NNRUN, NNSET, NTAPE , SS( 100) 
1,SSL(100),TNEXT,TN0W  ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10, 7) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) , DFIN( 10) , 
1  CCNT<5),  CSUM( 5 ) ,  CFINC5),  CSTRT(5),  RCNT.RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C  READ  ATRIBUTES  FROM  WORKLOAD  FILE 

50  READ  (UNIT-1 l.FMT-l, END-999, ERR-999) (ATRIB(I ) , IM1 , 10) 

1  F0RMAT(12X, F10.4, lX,F10.0,lX,F3.0,lX,F3.0flX,F2.0,lX,F2.0, 

1  1X,F4.0,1X,F5.0,1X,F4.0,1X,F4.0) 

C***  IF  THE  JOB  REQUIRES  0  CPU  TIME  THEN  REJECT  JOB 
C***  AND  READ  NEXT  JOB'S  ATRIBUTES 
IF  (ATRIB(3)  .LE.  0.0)  THEN 

PRINT  *,'JOB  REJECTED:  REQUESTED  0  CPU  TIME' 

PRINT  MATRIB(I),  1-1,21) 

GOTO  50 
END  IF 

C***  CONVERT  HOURS  TO  SECONDS  FOR  ARRIVAL  TIME 
ATRIB(i)  -  ATRIB(l)  *  3600. 

C***  CONVERT  CPU  TIME  TO  THE  RELATIVE  SPEED  OF  THE  CPU 
ATRIB(3)  -  ATRIB(3)  *  XX(6) 


D-15 


r 


C******  CALCULATE  OTHER  ATRIBUTES 

DO  5  1-11,24 

ATRIB( 12)  -  0.0 
5  CONTINUE 
C***  i/o  TIME  USED  -  0 

C***  Cpu  TIME  LEFT  -  CPU  TIME  REQUIRED 
ATRIB(18)  -  ATRIB( 3) 

C***  SET  ATRIB(21)  TO  ARRIVED  WHEN  S/W  MON  NOT  ON 
ATRIB(21)  -  99. 

C****  SCHEDULE  JOB  ARRIVAL  AT  PROPER  TIME 
CALL  SCHDL(3,ATRIB(l)  -  TNOW .ATRIB) 

999  RETURN 
END 


i 
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C* ********************************************************* 

C  * 
C  DATE:  5  DEC  1983  * 
C  VERSION:  1.0  * 
C  * 
C  NAME:  ISPO  * 
C  EVENT  NUMBER:  2  * 
C  FUNCTION:  INITIALIZES  INPUT  SPOOLER  AND  PUTS  * 
C  SPOOLER  INTO  HOLD  QUEUE  * 
C  FILES  READ:  NONE.  * 
C  FILES  WRITTEN:  NONE.  * 
C  EVENTS  CALLED:  NONE.  * 
C  CALLING  EVENTS:  NONE.  * 
C  SUBROUTINES  CALLED:  NONE.  * 
C  CALLING  SUBROUTINES:  NONE.  * 


AUTHOR : 
HISTORY: 


DAVID  L. 
N/A. 


C* ********************************************************* 

SUBROUTINE  ISPO 

C0MM0N/SC0M1/  ATRIB( 100) ,DD(100) ,DDL( 100) ,DTNCW  , II.MFA 
1 ,  MS  TOP , NCLNR , NCRDR , NPR  NT , NNR  UN  t  NNS  ET , NTA  PE,SS(100) 
l , SSL (100) ,TNEXT,TNOW  ,XX( 100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK( 10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM(10),DFIN(10), 
1  CCNT(5),  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT, RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

REAL  AA(24) 

PARAMETER  (SPLER-2.) 

C***  SET  A1RIBUTES  FOR  INPUT  SPOOLER 

C**  ARRIVAL  TIME  -  TNOW 
AA( 1 )  -  TNOW 

C**  JOB  NAME  -  999  (DUMMY  NUMBER  FOR  INPUT  SPOOLER) 

AA(2 )  -  999. 

C**  MEMORY  SIZE  NEEDED  IS  4K 
AA(4)  ■  4.0 

C***  SET  JOB  TYPE  TO  INPUT  SPOOLER 
AA(ll)  -  SPLER 


C  CPU  TIME  USED  -  TOTAL  CPU  TIME  USED  BY  INPUT  SPOOLER 
AA(12)  -  XX(40) 

C 

C***  INITIALIZE  OTHER  ATRIBUTES  TO  0 
AA(3)  -  0 
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AA( 5 )  -  0 
AA(6)  -  0 
AA(7)  -  0 
AA(8)  -  0 
AA(9)  -  0 
AA(10)  -  0 
DO  11  1-13,24 
AA( I)  -  0 
1 1  CONTINUE 

C***  INTITIALIZE  ATRIB(21)  TO  ARRIVED  WHEN  S/W  MON  NOT  ON 
AA(21)  -  99. 


C***  put  INPUT  SPOOLER  INTO  HOLD  QUEUE 
CALL  ENTER(2 ,AA) 

RETURN 

END 
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C** ********************* *********************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 

NAME:  ENT l  * 

EVENT  NUMBER:  3  * 

FUNCTION:  ENTERS  JOB  INTO  INPUT  QUEUE  AND  CALLS  * 


EVENT  1  TO  SCHEDULE  NEXT  JOB  * 

FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  1  * 

CALLING  EVENTS:  1  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  NONE.  * 

* 

AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


C** *********************************** ********************* 


SUBROUTINE  ENT1 

COMMON/ SCOM 1 /  ATR IB ( 1 00 ) , DD ( 1 00 ) , DDL ( 1 00 ) , DTNCW  , 1 1 , MFA 
1 , MS TOP , NCLNR ,  NCRDR , NPR NT , NNRUN, NNS ET , NTA PE , S S ( 1 00 ) 
1,SSL(100),TNEXT,TN0W,XX(I00) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(iO),  DSTRT(IO),  DSUM(IO) ,DFIN(10), 
1  CCNT(5) ,  CSUM(5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

c***  pux  job  INTO  INPUT  QUEUE 

PRINT  *,'NEW  USER  JOB  IN  SYSTEM' 


c ******  print  ATRIBUTES  FOR  DEBUG  PURPOSES 
PRINT  *,(ATRIB(I), 1-1,20) 

C 


CALL  ENTER(1,ATRIB) 


C***  SCHEDULE  THE  NEXT  JOB  ARRIVAL  BY  CALLING  ARVL 
CALL  SCHDL(l.O) 


RETURN 

END 
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£** ************************************************ ******** 

C  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  CPU  * 

C  EVENT  NUMBER:  4  * 

C  FUNCTION:  DETERMINES  WHAT  TYPE  OF  JOB  IS  GETTING  * 

C  THE  CPU  TIME  SLICE  AND  CALLS  APPROPRIATE  * 

C  ROUTINE  TO  HANDLE  CPU  EXECUTION  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  NONE.  * 

C  SUBROUTINES  CALLED:  USER,  SPOOL,  OSPOL,  SSMON,  * 

C  AND  JSCHD  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C** ************************************************* ******* 

SUBROUTINE  CPU 

COMMON/ SC0M1/  ATRIB( 100) ,DD( 100) ,DDL( 100) ,DTNOW  , II,MFA 
1 , MSTOP , NCLNR , NCRDR , NPRNT , NNRUN , NNSET , NTAPE , S  S ( 1 00 ) 

1 , SSL( 100) ,TNEXT,TNOW  ,XX( 100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  IAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(iO),  DSTRT(IO),  DSUM( 10),DFIN(10) 
1  CCNT(5) ,  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER  ( USR-1 . 0 , SPL-2 . 0 , OSPL-3 . 0 , SW  MNT-4 . 0 , JS C-5 . 0 ) 

C***  CPU-START-TIME  -  TNOW 
XX(4 )  -  TNOW 

C***  IF  H/W  MONITOR  -  ON,  THEN  H/W-MON-CPU-CNT  -  H/W-MON-CPU-CNT  +  1 
IF  (XX(30)  .EQ.  1)  XX(31)  -  XX(3I)  +  I 

C***  CHECK  TO  SEE  IF  JOB  TYPE  -  USER 

IF  (ATRIB(ll)  .EQ.  USR)  CALL  USER 

C***  CHECK  TO  SEE  IF  JOB  TYPE  -  INPUT  SPOOLER 
IF  (ATRIB(ll)  .EQ.  SPL)  CALL  SPOOL 

C***  CHECK  TO  SEE  IF  JOB  TYPE  -  OUTPUT  SPOOLER 
IF  (ATRIB(ll)  .EQ.  OSPL)  CALL  OSPOL 


C***  CHECK  TO  SEE  IF  JOB  TYPE  -  S/W  MONITOR 


IF  (ATRIB(ll)  .EQ.  SWMNT)  CALL  SSMON 


C***  CHECK  TO  SEE  IF  JOB  TYPE  -  JOB  SCHEDULER 
IF  (ATRIB(Il)  .EQ.  JSC)  CALL  JSCHD 

C***  IF  JOB  .NE.  ONE  OF  THE  ABOVE  THEN  THERE  IS  AN  ERROR 

IF  ((ATRIB(ll)  .GT.  5)  .OR.  (ATRIB(Il)  .LT.  1.))  THEN 
PRINT  *, '*****************************************' 
PRINT  *,'***  ERROR :  ILLEGAL  JOB  TYPE  ***' 

hunt  *,'*****************************************' 

PRINT  *, 'JOB  TYPE  -  '.ATRIB(ll) 

END  IF 

RETURN 

END 


I 


C****** **************************************************** 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  LJSCH  * 

C  EVENT  NUMBER:  5  * 

C  FUNCTION:  SETS  ATTRIBUTES  FOR  JOB  SCHEDULTER  AND  * 

C  LOADS  JOB  INTO  HOLD  QUEUE  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  7,  12,  17,  22  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C************************************** *********** ********* 

SUBROUTINE  LJSCH 

C0MM0N/SC0M1/  ATRIB(100),DD(100),DDL(100),DTN0W  ,II,MFA 
1 , MS TOP , NCLNR , NCRDR , NFR NT , NNR UN , NNSET , NTAPE , S S ( 1 00 ) 

1 , SSL( 1 00 ) , TNEXT , TNCW  , XX( 1 00) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TA?E(20,3) 

C0MM0N/UC0M2/DISK( 10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) , DFIN(IO) , 
1  CCNT(5),  CSUM(5) ,  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

REAL  AAA(24) 

C***  PUT  JOB  SCHEDULER  INTO  EXECUTE  QUEUE 
C**  FIRST  SET  UP  A TRIBUTES  FOR  JOB  SCHEDULER 
AAA(l)  -  TNCW 
AAA(2)  -  888 
AAA(ll)  -  5. 

AAA( 12)  -  XX(42) 

DO  20  IH-3,10 

20  AAA(III)  -  0. 

DO  21  111-13,24 

21  AAA(III)  -  0. 

C***  INITIALIZE  ATRIB(21)  TO  ARRIVED  WHILE  S/W  MON  NOT  ON 
AAA(21)  -  99. 


C**  NOW  PUT  JOB  SCHEDULER  IN  EXECQ 
CALL  ENTER(18,AAA) 
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c*** 


SET  JSCHED  IN  EXECQ  FLAG  TO  TRUE 
XX(IL)  -  1.0 


RETURN 

END 
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C******* *************************************************** 

c 

C  DATE:  5  DEC  1983 

C  VERSION:  1.0 

C 
C 
C 

C  FUNCTION:  SETS  A TRIBUTES  TO  OUPUT  SPOOLER  AND 

C 
C 
C 
C 
C 

c 
c 
c 

C  AUTHOR:  DAVID  L.  OWEN 

C  HISTORY:  N/A. 

C 

C****** ******************************************** ******** 


NAME:  LOS PL 
EVENT  NUMBER:  6 

FUNCTION:  SETS  A TRIBUTES  TO  OUPUT  SPOOLER 
LOADS  JOB  INTO  HOLD  QUEUE 
FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  NONE. 

CALLING  EVENTS:  NONE. 

SUBROUTINES  CALLED: 

CALLING  SUBROUTINES: 


NONE. 

NONE. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  LOS PL 

C0MM0N/SC0M1 /  ATR IB ( 1 00 ) , DD( 100) , DDL ( 1 00 ) , DTNOW ,11, MFA 
1 , MS  TOP , NC  LNR , NCRDR , NPR  NT,NNRUN,NNSET,NTAPE,SS(100) 

1 , SSL < 100) ,TNEXT, TNOW  ,XX( 100) 

CjMM0N/UCOM1/A(100),  PART (2 0,2),  TAPE(20, 3) 

COMMON /UC0M2/DISK( 10, 7) ,  DCNT(10),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM( 5),  CFIN<5),  CSTRT<5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

REAL  AA(24) 

PARAMETER  (OSPL»3.0,ON»1 .0) 

C 

C***  SET  OSPOOLERON  FLAG  TO  ON 
XX(12)  =  ON 


C***  SET  A TRIBUTES  FOR  INPUT  SPOOLER 
C 

C**  ARRIVAL  TIME  -  TNOW 
AA( 1 )  -  TNOW 

C**  JOB  NAME  *  998  (DUMMY  NUMBER  FOR  OUTPUT  SPOOLER) 

AA(2 )  -  998. 

C**  MEM  (Ml  Y  SIZE  NEEDED  IS  4K 

AA(4)  -  4.0 
C 

C***  SET  JOB  TYPE  TO  INPUT  SPOOLER 
AA(ll)  -  OSPL 
C 

C***  SET  CPU  TIME  USED  -  TOTAL  CPU  TIME  USED  BY  OUTPUT  SPOOLER 
AA(12)  -  XX(41) 
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c 

C***  INITIALIZE  OTHER  A TRIBUTES  TO  0 
AA( 3)  -  0 
AA( 5 )  -  0 
AA(6)  -  0 
AA( 7 )  -  0 
AA(8 )  -  0 
AA( 9 )  -  0 
AA(IO)  -  0 
DO  11  1*13,24 
AA(  I )  -  0 
II  CONTINUE 

C***  INITIALIZE  ATRIB(21)  TO  ARRIVED  WHILE  S/W  MON  NOT  ON 
AA(21 )  -  99. 

C***  pur  OUTPUT  SPOOLER  INTO  HOLD  QUEUE 
CALL  ENTER(7,AA) 

RETURN 

END 
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£********************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 

NAME:  JCOMP  * 

EVENT  NUMBER:  7  * 


FUNCTION:  FREES  RESOURCES  AFTER  JOB  COMPLETE  * 


FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  5  * 

CALLING  EVENTS:  NONE.  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  USER  * 

* 

AUTHOR:  DAVID  L.  OWEN  * 

HISTORY :  N/A.  * 

* 


C** ********************************************* *********** 


SUBROUTINE  JCOMP 

COMMON/ SC0M1 /  ATR IB ( 1 00 ) , DD ( 1 00 ) , DDL ( 1 00 ) , DTNOW , I I , MFA 
1 , MSTOP.NCLNR , NCRDR , NPRNT, NNRUN, NNSET, NTAPE , SS( 100) 

1 , SSL ( 1 00) , TNEXT , TNOW , XX( 1 00) 

C0MM0N/UC0M1/A(100),  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(IO) ,  DSTRT(IO),  DSUM( 10) ,DFIN(10) , 
1  CCNT(5) ,  CSDM(5),  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSIRT,  PFIN,  PSUM 

PARAMETER (FRE-O.O,  BUSY-1.0) 

C***  CPU-TIME-USED  -  CPU-TIME  USED  +  (TNOW  -  CPU-START-TIME) 

ATRIB( 12)  -  ATRIB( 12)  +  (TNOW  -  XX(4)) 

C***  MOVE  JOB  TO  OUTPUT  QUEUE 
CALL  ENTER  (10.ATRIB) 

C***  FREE  CPU,  I.E.  RELEASE  A  JOB  FROM  THE  EXECUTE  QUEUE 
CALL  FREE (3,1) 

C***  FIND  MEMORY  PARTION  USED  AND  FREE  IT 
DO  5  III«1,XX(3) 

IF  (PART(III.l)  .EQ.  ATRIB( 14) )  THEN 
PART(III, 2)  -  FRE 
GOTO  10 
END  IF 

5  CONTINUE 


c***  if  THIS  STATEMENT  IS  REACHED  A  PARTION  WAS  NOT  FOUND 

PRINT  *, 'ERROR  -  UNABLE  TO  FIND  MEMORY  PARTION  TO  FREE 


PRINT  *,'JOB  A TRIBUTES  ARE' 
PRINT  *,(ATRIB(I), 1-1,20) 
PRINT  *, 'MEMORY  PARTI0N3  ARE' 
DO  6  J-1,XX(3) 

PRINT  *,PART(J,1),PART(J ,2) 

6  CONTINUE 
RETURN 


C***  FREE  TAPES 
10  NTAPE  =  0 

DO  15  III-l ,XX(9) 

IF  (TAPE(III,3)  .EQ.  ATRIB(2 ) )  THEN 
NTAPE  -  NTAPE  +  1 
TAPE ( I I I , 2 )  -  FRE 

C***  INCREMENT  NUMBER  OF  AVAILABLE  TAPE  DRIVES 

XX(10)  -  XX(10)  +  1 
END  IF 
15  CONTINUE 

C***  CHECK  TO  SEE  THAT  YOU  FREE  THE  RIGHT  NUMBER  OF  TAPES 
IF  (NTAPE  .NE.  NINT(AIRIB(6)))  THEN 

PRINT  *, 'ERROR  -  FREED  '.NTAPE,'  TAPES' 

PRINT  SHOULD  BE  ',ATRIB(6),'  TAPES' 

END  IF 

C***  LOAD  JOB  SCHEDULER  INTO  EXECQ  IF  IT  ISN'T  ALREADY 
IF  (XX(ll)  .NE.  1.)  THEN 
CALL  LJSCH 
XX(ll)  -  1.0 
END  IF 


RETURN 

END 


£★★***** *************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 

NAME:  DISKS  * 

EVENT  NUMBER:  8  * 

FUNCTION:  FREES  CPU,  FIGURES  OUT  WHICH  DISK  TO  * 

GO  TO  AND  PUTS  JOB  INTO  DISK  QUEUE  * 

FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  NONE.  * 

CALLING  EVENTS:  NONE.  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  SPOOL,  OSPOOL,  USER  * 

* 

AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


0************ ****************************** **************** 


SUBROUTINE  DISKS 

C0MM0N/SC0M1/  ATRIB( 100) ,DD( 100) ,DDL( 100) .DTNCW  , II ,MFA 
1 , MSTOP , NCLNR , NCRDR , NPR NT, NNRUN , NNS ET, NTAPE , S S ( 1 00) 
1,SSL(100),TNEXT,TNQW ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(iO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
I  CCNT(5),  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER  (ON  -  1.0) 

C***  CALCULATE  CPU-TIME-USED  AND  CPU-TIME-LEFT 
ATRIB( 12)  -  ATRIB( 12)  +  (TNOW  -  XX(4)) 

AIRIB(18)  -  ATRIB( 18 )  -  ((TNOW  -  XX(4)>  *  XX(5)) 

C***  START-I/O  -  TNCW 
XX(8 )  -  TNOW 

C***  FREE  CPU 

CALL  FREE(3, 1) 

C***  NEXT  DISK  -  XX(21) 

NDISK  -  NINT(XX(21) ) 

C***  SET  job  ATRIB( 19)  TO  THE  DISK  USED 
AIRIB( 19)  -  NDISK  +  20 


c***  UPDATE  NEXT  DISK 

IF  (XX(21 )  .GE.  XX(22) )  THEN 


Q* ******  ************************************ *************** 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  TAPES  * 

C  EVENT  NUMBER:  9  * 

C  FUNCTION:  FREES  CPU,  FIGURES  OUT  WHICH  DISK  TO  * 

C  USE,  AND  PLACES  JOB  IN  SMALLEST  CHAN  Q  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  NONE.  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  USER  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C* ********************************************************* 

SUBROUTINE  TAPES 

COMMON/ SC0M1/  ATRIB(100),DD(100),DDL(100),DTN0W ,II,MFA 
1 , MSTOP , NCLNR , NCR DR , NPRNT, NNRUN, NNSET , NIAPE , SS ( 1 00 ) 

1 , SSL ( 1 00 ) , TNEXT , TNGW  , XX( 1 00) 

COMMON/UCOMI/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C0MM0N/UC0M3/TAP( 1 0, 7 ) ,  TCNT(lO),  TSTRT(IO),  TSUM( 10) ,TFIN(10) 

INTEGER  CHL,  CHNL 
PARAMETER  (ON  -  1.0) 

C***  CALCULATE  CPU-TIME -USED  AND  CPU-TIME -LEFT 
ATRIB( 12)  -  ATRIB( 12)  +  (TNOW  -  XX(4>) 

ATRIB(18)  -  ATRIB( 18 )  -  ((TNOW  -  XX(4)>  *  XX(5)) 

C***  START-I/O  -  TNOW 
XX(8)  -  TNOW 

c***  FREE  CPU  BY  RELEASING  A  JOB  FROM  THE  EXECUTE  QUEUE 
CALL  FREE(3, 1) 

c***  FIND  NEXT  TAPE  DRIVE  ASSIGNED  TO  THAT  JOB 

C**  MAKE  SURE  YOU  DON'T  GO  INTO  INFINITE  LOOP 
DO  5  I-1,XX(9) 
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IF  (XX(24)  .GE.  XX(9) )  THEN 
XX(24)  -  1 
ELSE 

XX(24)  -  XX(24)  +  1.0 
END  IF 

NTAPE  -  NINT(XX(24) ) 

IF  (  TAPE (NTAPE, 3)  .EQ.  ATRIB(2 )  )  GO  TO  10 
5  CONTINUE 

C***  IF  THIS  STATEMENT  WAS  REACHED  THEN  THEIR  ARE  NO  TAPES  ASSIGNED 

C***  TO  THE  JOB 

PRINT  *, 'ERROR:  TAPES  NOT  ASSIGNED  TO  THIS  JOB' 

PRINT  *, (ATRIB(K) ,  K*1 ,21) 

RETURN 

c***  SET  JOB  ATRIB( 19)  TO  THE  TAPE  USED 

10  ATRIB(19)  -  NTAPE  +  10 

C***  FIND  FIRST  CHANNEL  TAPE  IS  CONNECTED  TO 
DO  1  I-1,XX(23) 

IF  (TAP(NIAPE.I)  .EQ.  1.0)  THEN 
CHNL  -  I 

CSIZE  -  NNQ(30  +  CHNL) 

ATRIB(20)  -  CHNL 
GO  TO  2 
END  IF 

1  CONTINUE 

C***  IF  THIS  STATEMENT  IS  REACHED  THEN  THE  TAPE  IS  NOT  CONNECTED 
C***  TO  ANY  CHANNEL 

PRINT  *, 'ERROR:  TAPE  NOT  CONNECTED  TO  ANY  CHANNEL' 

PRINT  *,'TAPE  -  '.NTAPE 
PRINT  *, 'TAPE  CHANNELS  ARE' 

PRINT  *,(TAP(NTAPE,I),I-1,XX(23)) 

RETURN 

C***  FIND  THE  SMALLEST  CHANNEL  QUEUE  WHICH  THE  TAPE  CAN  USE 

2  I CHNL  -  CHNL 

DO  15  CHL»ICHNL,XX(23) 

IF  (TAP(NTAPE.CHL)  .EQ.  ON)  THEN 
IF  (NNQ(30-K:HL)  .LT.  CSIZE)  THEN 
CHNL  -  CHL 
CSIZE  -  NNQ(30-fCHL) 

ATRIB(20)  -  CHNL 
END  IF 
END  IF 
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15 


CONTINUE 


C***  AWAIT  CHANNEL 

CALL  ENTER(25,ATRIB) 
RETURN 

END 
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C* *********************************** ********************** 


c 

* 

c 

DATE:  5  DEC  1983 

* 

c 

VERSION:  1.0 

* 

c 

* 

c 

NAME:  TIMEO 

* 

c 

EVENT  NUMBER:  10 

* 

c 

FUNCTION:  FREES  CPU  AND  PLACES  JOB  BACK  INTO 

* 

c 

EXECUTE  QUEUE 

* 

c 

FILES  READ:  NONE. 

* 

c 

FILES  WRITTEN:  NONE. 

* 

c 

EVENTS  CALLED:  NONE. 

* 

c 

CALLING  EVENTS:  NONE. 

* 

c 

SUBROUTINES  CALLED:  NONE. 

* 

c 

CALLING  SUBROUTINES:  USER 

* 

c 

* 

c 

AUTHOR:  DAVID  L.  OWEN 

* 

c 

HISTORY:  N/A. 

* 

c 

* 

c* *******************************************  ************** 


SUBROUTINE  TIMEO 

COMMON/ SCOM1 /  ATRIB(100),DD(100),DDL(100),DTNOW .II.MFA 
I , MSTOP , NCLf® ,  NCR  DR , NPRNT, NNRUN , NNSET , NIAPE , SS ( 1 00 ) 

1,SSL( 100), TNEXT, TNOW, XX( 100) 

C0MM0N/UC0MI/A(100),  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK(10, 7) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM(5),  CFIN(5),  CSIRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C***  CALCULATE  CPU-TIME-USED  AND  CPU-TIME-LEFT 
ATRIB( 12)  -  ATRIB( 12)  +  (TNOW  -  XX(4)) 

ATRIB( 18 )  «  ATRIB( 18 )  -  ((TNOW  -  XX(4))  *  XX(5)) 

C***  FREE  CPU  BY  RELEASING  A  JOB  FROM  THE  EXECUTE  QUEUE 
CALL  FREE (3, 1 ) 

C***  PLACE  JOB  BACK  INTO  EXECUTE  QUEUE 
CALL  ENTER(4,ATRIB) 

RETURN 

END 
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Q*  ★*★*★★  ***************************  -kit  It  Irk  it  it  It  It  Irk  it  ************ 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  RCARD  * 

C  EVENT  NUMBER:  11  * 

C  FUNCTION:  FREES  CPU  AND  READS  CARDS  INTO  BUFFER  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  14  * 

C  CALLING  EVENTS:  16  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C* ************************************************ ********* 

SUBROUTINE  RCARD 

COMMON/ SCOM 1 /  ATR IB ( 1 00 ) , DD ( 1 00 ) , DDL ( 1 00 ) , DTNOW , I I , MFA 
1 , MS TOP , NCLNR , NCRDR , NPR  NT , NNRUN, NNSET, NTAPE , SS ( 1 00 ) 
1,SSL(100),TNEXT,TN0W  ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5),  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER (ON  -1.0) 


C***  UPDATE  CPU  TIME  USED 

ATRIB( 12)  -  ATRIB( 12)  +  (TNCW  -  XX(4))  *  XX(5) 

C***  UPDATE  NUMBER  OF  CARDS  LEFT  TO  READ 
IF  (ATRIB(7)  .LE.  XX(20))  THEN 
AIRIB(7)  -  0. 

ELSE 

ATRIB(7)  -  ATRIB(7)  -  XX(20) 

END  IF 

c***  FREE  CPU 

CALL  FREE (3,1) 

C***  if  H/W  MON  IS  ON  THEN  UPDATE  READER  AND  CHANNEL  DATA 
IF  (XX(30)  .EQ.  ON)  THEN 
RCNT  -  RCNT  +  1 
IF  (RSTRT  .NE.  -1.0)  THEN 
IF  (RFIN  .LT.  TNOW)  THEN 
RSUH  -  RSUM  +  RFIN  -  RSTRT 
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RSTRT  -  TNOW 
END  IF 
ELSE 

RSTRT  *  TNOW 
END  IF 

RFIN2  -  ( (XX(20)  /  XX(I8))*  60)  -(-TNOW 
IF  (RFIN2  .GE.  RFIN)  THEN 
RFIN  -  RFIN2 
END  IF 

NCHL  -  NINT(ATRIB(20) ) 

IF  (CSTRT(NCHL)  .NE.  -1.0)  THEN 
IF  (CFIN(NCHL)  .LT.  TNOW)  THEN 

CSUM(NCHL)  -  CSUM(NCHL)  +  CFIN(NCHL)  -  CSTRT(NCHL) 
CSTRT(NCHL)  -  TNCW 
ELSE 

CCNT(NCHL)  »  CCNT(NCHL)  +  1 
END  IF 
ELSE 

CSTRT(NCHL)  -  TNOW 
CCNT(NCHL)  -  CCNT(NCHL)  +  1 
END  IF 

IF  (RFIN2  .GT.  CFIN(NCHL))  THEN 
CFIN(NCHL)  -  RFIN2 
END  IF 
END  IF 

C***  SCHEDULE  COMPLETION  OF  LOADING  BUFFER 

CALL  SCHDL  (14,(XX(20)  /  XX(18))  *  60.ATRIB) 

RETURN 

END 
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C******* ******************************************* ******** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 

NAME :  DCOMP  * 

EVENT  NUMBER:  12  * 

FUNCTION:  FREES  CHANNEL  AND  DISK  AFTER  DISK  * 

TRANSFER.  * 

FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  5  * 

CALLING  EVENTS:  16  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  SPOOL  * 

* 

AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


(j* ** ******************************************************* 


SUBROUTINE  DCOMP 

COMMON/ SCOM 1 /  ATR IB ( 1 00 ) , DD ( 1 00 ) , DDL ( 1 00 ) , DT NOW , 1 1 , MFA 
1 , MSTOP , NCLNR , NCRDR , NPR  NT , NNRUN , NNS ET , NTA  PE , S  S ( 1 00 ) 

1 , SSL(IOO) ,TNEXT,TNOW ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20, 3) 

COMMON/UCOM2/DISK(10, 7 ) ,  DCNT(IO),  DSIRT(IO),  DSUM(10),DFIN(10), 
1  CCNT(5) ,  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER  (ON  -  1.0, USR  -  1.0.SPL-2.0,OSPL«3.0,FRE-0.0) 


C***  FREE  CHANNEL  OF  THE  PORTION  TKAT  THE  JOB  WAS  USING 
NCHL  -  30  -*ATRIB(20) 

ITEMP  -  NINT(USERF( 1 ) ) 

CALL  FREE (NCHL, ITEMP) 

C***  FREE  DISK 

NDSK  -  ATRIB( 19) 

CALL  FREE (NDSK, 1) 

C***  UPDATE  I/O  TIME  USED 

ATRIB( 13)  -  ATRIB(13)  +  (TNOW  -  XX(8)) 

C***  IF  JOB  TYPE  -  USER 

IF  (ATRIB( 11)  .EQ.  USR)  THEN 

C*  UPDATE  TIME  OF  LAST  I/O  (CPU-TIM-REQ  -  CPU-TIM-LEFT) 

ATRIB( 16)  -  ATRIB(3)  -  AIRIB(18) 

PUT  JOB  BACK  INTO  EXECUTE  QUEUE 


C* 


T 


CALL  ENTER (3,ATRIB) 
RETURN 


END  IF 

C*** 

IF  JOB  TYPE  IS  INPUT  SPOOLER 

IF  (AIRIB(ll)  .EQ.  SPL) 

THEN 

c** 

CHECK  FOR  COMPLETION 

OF  SPOOLING 

IF  (A EUB(7)  .EQ.  0.) 

THEN 

c* 

SPOOL  STATUS  -  0 

XX( 15)  »  0.0 

C********  NEED  TO  PUT  CPU  TIME  FOR  SPOOLER  IN  HERE 

C**  FREE  JOB  FROM  INPUT  QUEUE 

CALL  FREE (1,1) 

IF  (NNQ(l)  .NE.  0)  THEN 

C**  PUT  SPOOLER  BACK  INTO  EXECUTE  QUEUE 

CALL  ENTER(3,ATRIB) 

ELSE 

C**  SPOOLERON  -  0 

XX(1)  -  0 

C**  FIND  MEMORY  PARTI ON  USED  AND  FREE  IT 

DO  5  III-1,XX(3) 

IF  ( PART  (III,  1 )  .EQ.  ATRIB(H))  THEN 
PART(III,2)  =  FRE 
GOTO  10 
END  IF 

5  CONTINUE 

C***  IF  THIS  STMT  IS  REACHED  A  PARTION  WAS  NOT  FOUND 

PRINT  *, 'ERROR  -  UNABLE  TO  FIND  MEMORY  PARTION  TO  FREE' 
PRINT  *,'JOB  A TRIBUTES  ARE' 

PRINT  *,(ATRIB(I), 1-1,18) 

PRINT  *, 'MEMORY  PARTIONS  ARE' 

DO  6  J-1,XX(3) 

PRINT  *,PART( J , 1 ) ,PART(J, 2 ) 

6  CONTINUE 
RETURN 

10  CONTINUE 

C***  PUT  JOB  SCHEDULER  INTO  EXECQ  (IF  NOT  ALREADY  THERE) 

IF  (XX(H)  .NE.  ON)  THEN 
XX(ll)  -  ON 
CALL  SCHDL(5,0. ,ATRIB) 

END  IF 
END  IF 
ELSE 

C**  SPOOL  STATUS  -  2  (READY  TO  READ  MORE  CARDS) 

XX(15)  -  2.0 

C*  PUT  SPOOLER  BACK  INTO  EXEC  QUEUE 

CALL  ENTER(3,ATRIB) 
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END  IF 
RETURN 
END  IF 


C***  IF  JOB  TYPE  IS  OUTPUT  SPOOLER 
IF  (ATRIB(ll)  .EQ.  OSPL)  THEN 
C**  OSPOOL  STATUS  -  READY  TO  PRINT  BUFFER 

XX( 16)  =  1.0 

C**  PUT  OUTPUT  SPOOLER  BACK  INTO  EXECQ 

CALL  ENTER ( 3 , ATR IB ) 

RETURN 
END  IF 

C***  IF  JOB  TYPE  IS  NOT  USER  OR  SPOOLER  OR  OUTPUT  SPOOLER  THEN 
C***  AN  ERROR  HAS  OCCURRED 

PRINT  *, 'ERROR:  ILLEGAL  JOB  TYPE  IN  DCOMP' 

PRINT  *,(ATRIB(I), 1-1,21) 


RETURN 

END 


D-38 


r 

r 


C** **************************************************** **** 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME :  TCOMP  * 

C  EVENT  NUMBER:  13  * 

C  FUNCTION:  FREES  CHANNEL  AFTER  TAPE  10  COMPLETION  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  16  * 

C  SUBROUTINES  CALLED:  US ERF  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

c********************************************************** 

SUBROUTINE  TCOMP 

COMMON/ SCOM 1 /  ATR I B ( 1 00 ) , DD( 1 00 ) , DDL ( 1 00 ) , DTNOW , I I , MFA 
1 , MS TOP , NCLNR , NCR DR , NPRNT , NNRUN , NNSET , NTAPE , S  S ( 1 00 ) 

1 ,SSL( 100) ,TNEXT,TNOW  ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISKv 10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN(10) , 
1  CCNT(5),  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

COMMON/UCOM3/TAP(10,7),  TCNT(IO),  TSTRT(IO),  TSUM( 10) ,TFIN( 10) 

C*  UPDATE  TIME  OF  LAST  TAPE  I/O  (CPU-TIM-REQ  -  CPU-TIM-LEFT) 

ATRIB( 1 7 )  “  ATRIB(3)  -  ATRIB(18) 

C***  FREE  CHANNEL  OF  THE  PORTION  THAT  THE  JOB  WAS  USING 
NCHL  -  30  +  ATRIB(20) 

ITEMP  -  NINT(USERF(1)) 

CALL  FREE(NCHL, ITEMP) 

C***  UPDATE  I/O  TIME  USED 

A7KIB( 13)  -  ATRIB( 13)  +  (TNCW  -  XX(8)) 


C*  PUT  JOB  BACK  INTO  EXECUTE  QUEUE 
CALL  ENTER(3,ATRIB) 

RETURN 

END 
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C 

C  DATE:  5  DEC  1983 

C  VERSION:  L.O 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

C  AUTHOR:  DAVID  L.  OWEN 

C  HISTORY:  N/A. 

C 

Q* ************************************ ****** *************** 


NAME :  CHANL 
EVENT  NUMBER:  15 

FUNCTION:  FINDS  SMALLET  CHANNEL  QUEUE  THAT  IS 
CONNECT  TO  DISK,  CARD  READER,  OR  PRINTER 
FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  NONE. 

CALLING  EVENTS:  11 
SUBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  OSPOL, 


SPOOL 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  CHANL 

COMMON/SCOM1/  ATRIB(IOO) ,DD(100),DDL(100),DTNOW , II.MFA 
1 ,  MS  TOP ,  NC  LNR  ,  NCRDR ,  NPR  NT ,  NNR UN ,  NNS  E T ,  NTA PE ,  S  S  (  1 00  ) 

1 , SSL( 100) ,TNEXT, TNCW  ,XX( 100) 

COMMON/ UCOMl /A ( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN(10) , 
1  CCNT(5) ,  CSUM(5) ,  CFIN(5) ,  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 
C0MM0N/UC0M4/CARD ( 6 ) , PRNTR ( 6 ) 

INTEGER  CHL,  CHNL 

PARAMETER  (ON  -  1.0,  USR-1.0,  SPLR-40.0,  0SPLR-41.0) 

C***  IF  IT  IS  A  DISK  NEEDING  THE  CHANNEL 

IF  ( (ATRIB( 19)  .GT.  20)  .AND.  (ATRIB(19)  .LE.  30))  THEN 


NDISK  -  NINT(ATRIB( 19)  -  20) 

C***  FIND  FIRST  CHANNEL  DISK  IS  CONNECTED  TO 
DO  1  I-1,XX(23) 

IF  (DISK(NDISK.I)  .EQ.  1.0)  THEN 
CHNL  =  I 

CSIZE  -  NNQ(30  +  CHNL) 

AIRIB(20)  -  CHNL 
GO  TO  2 
END  IF 

1  CONTINUE 

C***  IF  THIS  STATEMENT  IS  REACHED  THEN  THE  DISK  IS  NOT  CONNECTED 
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0***** **********************************************  ******* 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  FULLB  * 

C  EVENT  NUMBER:  14  * 

C  FUNCTION:  FREES  CHANNEL  AFTER  BUFFER  HAS  BEEN  * 

C  LOADED  BY  CARD  READER  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  11  * 

C  SUBROUTINES  CALLED:  USERF  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C* ************************************************** ******* 

SUBROUTINE  FULLB 

COMMON/ SCOM 1/ATRIB(100),DD(100),DDL(100),DTNOW,II,MFA 
1 ,  MSTOP , NCLNR , NCRDR , NPR NT , NNRUN , NNS ET , NTAPE , SS ( 1 00 ) 

1 , S SL ( l 00 ) , TNEXT , TNOW , XX( 1 00 ) 

COMMOF /UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) , DFIN( 10) , 
1  CCNT(5) ,  CSUM(5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT ,  PSTRT,  PFIN,  PSUM 
COMMO N/ UC0M4 / CARD ( 6 ) ,  PR  NTR  ( 6 ) 

PARAMETER  (ON-l.O,  OFF-O, 0,  NEW=0.0,  BFULL’l.O,  BEMPT-2.0) 


C***  SET  SPOOL -STATUS  TO  BUFFER  FULL 
XX(15)  -  BFULL 

C***  FREE  CHANNEL  OF  THE  PORTION  THAT  THE  CARD  READER  WAS  USING 
NCHL  -  30  +  ATRIB(20) 

ITEMP  =  USERF(l) 

CALL  FREE  (NCHL, ITEMP) 

C***  pox  SPOOLER  BACK  INTO  EXECUTE  QUEUE 
CALL  ENTER(3,ATRIB) 


RETURN 

END 
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C***  TO  ANY  CHANNEL 

PRINT  *, 'ERROR:  DISK  NOT  CONNECTED  TO  ANY  CHANNEL' 
PRINT  *, 'DISK  -  '.NDISK 
PRINT  *,'DISK  CHANNELS  ARE' 

PRINT  *,(DISK(NDISK,I),I»L,XX(23)) 

RETURN 

C***  FIND  THE  SMALLEST  CHANNEL  QUEUE  WHICH  THE  DISK  CAN  USE 
2  ICHNL  -  CHNL 

DO  10  CHL«ICHNL,XX(23) 

IF  (DISK(NDISK.CHL)  .EQ.  ON)  THEN 
IF  (NNQ(30+CHL)  .LT.  CSIZE)  THEN 
CHNL  -  CHL 
CSIZE  -  NNQ(30-K:HL) 

ATRIB(20)  -  CHNL 
END  IF 
END  IF 

10  CONTINUE 

C***  AWAIT  CHANNEL 

CALL  ENTER (25 , AIR IB) 

RETURN 
END  IF 


C***  IF  IT  IS  THE  CARD  READER  THAT  NEEDS  THE  CHANNEL 
IF  (ATRIB( 19)  .EQ.  SPLR)  THEN 

ATRIB(19)  -  SPLR 

C***  FIND  FIRST  CHANNEL  CARD  READER  IS  CONNECTED  TO 
DO  4  I-1,XX<23) 

IF  (CARD(I)  .EQ.  1.0)  THEN 
CHNL  «  I 

CSIZE  -  NNQ(30  +  CHNL) 

ATRIB(20)  =*  CHNL 
GO  TO  5 
END  IF 

4  CONTINUE 

C***  ip  THIS  STATEMENT  IS  REACHED  THEN  THE  CARD  READER  IS  NOT 
C***  CONNECTED  TO  ANY  CHANNEL 

PRINT  *, 'ERROR:  CARD  READER  NOT  CONNECTED  TO  ANY  CHANNEL' 
PRINT  * , 'CARD  READER  CHANNELS  ARE' 

PRINT  *,(CARD(I),I-l,XX<23)) 

RETURN 

C***  FIND  THE  SMALLEST  CHANNEL  QUEUE  WHICH  THE  CARD  READER  CAN  USE 

5  ICHNL  -  CHNL 

DO  6  CHL-ICHNL,XX(23) 

IF  (CARD (CHL)  .EQ.  ON)  THEN 

IF  (NNQ(30-#CHL)  .LT.  CSIZE)  THEN 
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DFIN2  -  DISK(NDSK,6)  +  TNCW 
IF  (DFIN2  .GE.  DFIN(NDSK) )  THEN 
DFIN(NDSK)  “  DFIN2 
END  IF 

NCHL  -  NINT(ATRIB(20)) 

IF  (CSTRT(NCHL)  .NE.  -1.0)  THEN 
IF  (CFIN(NCHL)  .LT.  TNCW)  THEN 

CSUM(NCHL)  <•  CSUM(NCHL)  +  CFIN(NCHL)  -  CSTRT(NCHL) 
CSTRT(NCHL)  -  TNCW 
ELSE 

CCNT(NCHL)  -  CCNT(NCHL)  +  1 
END  IF 
ELSE 

CSTRT(NCHL)  -  TNGW 
CCNT(NCHL)  -  CCNT(NCHL)  +  1 
END  IF 

IF  (DFIN2  .GT.  CFIN(NCHL) )  THEN 
CFIN(NCHL)  -  DFIN2 
END  IF 
END  IF 

C***  SCHEDULE  COMPLETION  OF  DISK  TRANSFER 
CALL  SCHDL(12,DISK(NDSK,6),ATRIB) 

RETURN 
END  IF 


C***  IF  IT  IS  A  TAPE  TRANSFER 

IF  ( (ATRIB( 19)  .LE.  20.0)  .AND.  (ATRIB(19)  .GT.  10.))  THEN 

NTAPE  -  NINT(ATRIB( 19)  -  10) 


C***  IF  H/W  MON  IS  ON  THEN  UPDATE  TAPE  AND  CHANNEL  DATA 
IF  (XX(30)  .EQ.  ON)  THEN 

TCNT(NTAPE)  -  TCNT( NTAPE)  +  1 
IF  (TSTRT(NTAPE)  .NE.  -1.0)  THEN 
IF  (TFIN(NTAPE)  .LT.  TNCW)  THEN 

TSUM( NTAPE)  -  TSUM(NTAPE)  +  TFIN(NTAPE)  -  TSTRT(NTAPE) 
TSTRT(NTAPE)  -  TNCW 
END  IF 
ELSE 

TSTRT(NTAPE)  -  TNCW 
END  IF 

TFIN2  -  TAP (NTAPE, 6)  +  TNOW 
IF  (TFIN2  .GE.  TFIN(NTAPE) )  THEN 
TFIN(NTAPE)  -  TFIN2 
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END  IF 


r'l 


NCHL  -  NINT(ATRIB(20)) 

IF  (CSTRT(NCHL)  .NE.  -1.0)  THEN 
IF  (CFIN(NCHL)  .LT.  TNOW )  THEN 

CSUM(NCHL)  -  CSUM(NCHL)  +  CFIN(NCHL)  -  CSTRT(NCHL) 
CSIRT(NCHL)  -  TNOW 
ELSE 

CCNT(NCHL)  -  CCNT(NCHL)  +  1 
END  IF 
ELSE 

CSTRT(NCHL)  -  TNOW 
CCNT(NCHL)  -  CCNT(NCHL)  +  1 
END  IF 

IF  (TFIN2  .GT.  CFIN(NCHL) )  THEN 
CFIN(NCHL)  *  TFIN2 
END  IF 
END  IF 

C***  SCHEDULE  COMPLETION  OF  TAPE  TRANSFER 
CALL  SCHDL( 13,TAP(NTAPE, 6 ) ,ATRIB) 

RETURN 
END  IF 


C***  IF  JOB  NEEDS  TO  READ  CARDS  THEN  CALL  RCARD 
IF  (ATRIB( 19)  .EQ.  SPLR)  THEN 
CALL  SCHDL(11 , 0.0,AIRIB) 

RETURN 
END  IF 


C***  IF  JOB  NEEDS  TO  PRINT  CALL  PBUFF 
IF  (ATRIB(19)  .EQ.  OSPLR)  THEN 
CALL  SCHDL(24,0.0,ATRIB) 
RETURN 
END  IF 

END 
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CHNL  -  CHL 
CSIZE  -  NNQ(3CHCHL) 
A1RIB(20)  -  CHNL 
END  IF 
END  IF 

6  CONTINUE 

C***  AWAIT  CHANNEL 

CALL  ENTER(25,ATRIB) 

RETURN 
END  IF 


C***  IF  IT  IS  THE  LINE  PRINTER  THAT  NEEDS  THE  CHANNEL 
IF  (ATRIB( 19)  .EQ.  OSPLR)  THEN 

ATRIB( 19)  *  OSPLR 

C***  FIND  FIRST  CHANNEL  LINE  PRINTER  IS  CONNECTED  TO 
DO  20  I-L,XX(23) 

IF  (PRNTR(I)  .EQ.  1.0)  THEN 
CHNL  -  I 

CSIZE  -  NNQ(30  +  CHNL) 

ATRIB(20)  -  CHNL 
GO  TO  25 
END  IF 

20  CONTINUE 

C***  IF  THIS  STATEMENT  IS  REACHED  THEN  THE  LINE  PRINTER  IS  NOT 
C***  CONNECTED  TO  ANY  CHANNEL 

PRINT  *, 'ERROR:  LINE  PRINTER  NOT  CONNECTED  TO  ANY  CHANNEL' 
PRINT  *,'LINE  PRINTER  CHANNELS  ARE' 

PRINT  *, (PRNTR(I) , 1*1 ,XX(23) ) 

RETURN 

C***  FIND  THE  SMALLEST  CHANNEL  QUEUE  WHICH  THE  LINE  PRINTER  CAN  USE 
25  ICHNL  -  CHNL 

DO  30  CHL* ICHNL , XX( 2  3 ) 

IF  (PRNTR(CHL)  .EQ.  ON)  THEN 

IF  (NNQ(30+CHL)  .LT.  CSIZE)  THEN 
CHNL  -  CHL 
CSIZE  -  NNQ(30-K:HL) 

ATRIB(20)  -  CHNL 
END  IF 
END  IF 

30  CONTINUE 

C***  AWAIT  CHANNEL 

CALL  ENTER(25,ATRIB) 

RETURN 


c********************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATE:  5  DEC  1983 
VERSION:  1.0 

NAME:  FPRNT  (FINISHED  PRINTING) 

EVENT  NUMBER:  17 

FUNCTION:  FREES  CHANNEL  AFTER  PRINTING  BUFFER. 

IF  THERE  IS  NO  MORE  PRINTING  TO  BE  DONE 
THEN  THE  OUPUT  SPOOLER  IS  RELEASED  FROM 
THE  SYSTEM  ,  THE  PARTITION  IS  FREED  AND 
THE  JSCHD  IS  LOADED. 

FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  5 
CALLING  EVENTS:  24 
SUBROUTINES  CALLED:  USERF 
CALLING  SUBROUTINES:  NONE. 

AUTHOR:  DAVID  L.  OWEN 
HISTORY:  N/A. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


C** ****** ************************************************** 


SUBROUTINE  FPRNT 

COMMON/ SCOMl/  ATRIB(IOO) ,DD(100) ,DDL(100) .DTNOW  , II ,MFA 
1 , MSTOP , NCLNR , NCRDR , NPRNT , NNRUN , NNSET , NTAPE , SS ( 1 00 ) 

1 , SSL< 1 00) , TNEXT , TNCW  , XX( 1 00 ) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10,7 ) ,  DCNT(IO),  DSIRT(IO),  DSUM(10),DFIN(10), 
1  CCNT(5) ,  CSUM(5),  CFIN(5),  CSTRT(3),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER  (ON  -  l.O.FRE-O.O) 


C***  FREE  CHANNEL  OF  THE  PORTION  THAN  THE  LINE  PRINTER  WAS  USING 
NCHL  -  30  +  ATRIB(20) 

ITEMP  -  USERF(l) 

CALL  FREE (NCHL, ITEMP) 

C**  CHECK  FOR  COMPLETION  OF  OUTPUT  SPOOLING 
IF  (ATRIB(8)  .EQ.  0.)  THEN 
C*  OSPOOL  STATUS  -  0 

XX(16)  -  0.0 

c********  NEED  TO  PUT  CPU  TIME  FOR  SPOOLER  IN  HERE 

C**  FREE  JOB  FROM  OUTPUT  QUEUE 

CALL  FREE (4,1) 

IF  (NNQ(4)  .NE.  0)  THEN 

C**  PUT  OUTPUT  SPOOLER  BACK  INTO  EXECUTE  QUEUE 

CALL  ENTER(3,ATRIB) 
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c** 

c** 

5 

c*** 

6 

10 

C*** 

C** 

C* 


ELSE 

OSPOOLERON  »  0 
XX( 12)  -  0. 

FIND  MEMORY  PARTION  USED  AND  FREE  IT 
DO  5  III»1,XX(3) 

IF  (PART(III.l)  .EQ.  ATRIB( 14) )  THEN 
PART ( I I I , 2 )  «  FRE 
GOTO  10 
END  IF 
CONTINUE 

IF  THIS  STMT  IS  REACHED  A  PARTION  WAS  NOT  FOUND 
PRINT  *, 'ERROR  -  UNABLE  TO  FIND  MEMORY  PARTION  TO  FREE' 
PRINT  *, 'JOB  ATRIBUTES  ARE' 

PRINT  *, (ATRIB( I ) , 1*1 , 18 ) 

PRINT  *, 'MEMORY  PARTIONS  ARE' 

DO  6  J-1,XX(3) 

PRINT  * ,PART(J, 1 ) , PART( J, 2) 

CONTINUE 

RETURN 

CONTINUE 

PUT  JOB  SCHEDULER  INTO  EXECQ  (IF  NOT  ALREADY  THERE) 

IF  (XX(ll)  .NE.  ON)  THEN 
XX(ll)  -  ON 
CALL  SCHDL(5,0.,ATRIB) 

END  IF 
END  IF 
ELSE 

SPOOL  STATUS  -  2  (READY  TO  READ  MORE  CARDS) 

XX( 16)  -  2.0 

PUT  SPOOLER  BACK  INTO  EXEC  QUEUE 
CALL  ENTER(3,ATRIB) 

END  IF 
RETURN 

END 
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C** ************************************************ ******** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATE:  5  DEC  1983 
VERSION:  1.0 

NAME:  JSCOM  (JOB  SCHED  COMPLETION) 

EVENT  NUMBER:  18 

FUNCTION:  FREES  CPU.  SINCE  JOB  SCHEDULER  IS 
ALSO  CORE  RESIDENT  THERE  IS  NO  MEMORY 
PARTITION  TO  FREE. 

FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  NONE. 

CALLING  EVENTS:  NONE. 

SUBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  JSCHD 

AUTHOR:  DAVID  L.  OWEN 
HISTORY:  N/A. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Q* ******************************************** ************* 


SUBROUTINE  JSCOM 

COMMON/ SC0M1/  ATRIB( 100) ,DD(100) ,DDL( 100) .DTNOW  , II ,MFA 
1 , MS  TOP , NCLNR , NCRDR , NPRNT , NNRUN , NNSET , NTAPE , S  S ( 1 00 ) 

1 , SS L( 1 00 ) , TNEXT , TNOW , XX( 1 00 ) 

C***  FREE  CPU  BY  RELEASING  JOB  FROM  EXECUTE  QUEUE 
CALL  FREE (3, 1) 

C***  UPDATE  CPU  TIME  USED  BY  JOB  SCHEDULER 
XX(42)  -  XX(42)  +  (TNOW  -  XX(4)) 

RETURN 

END 
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c********************** ***************************** ******* 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATE:  5  DEC  1983 
VERSION:  1.0 

NAME:  DTRAN 
EVENT  NUMBER:  16 

FUNCTION:  PERFORMS  A  DISK  OR  TAPE  TRANSFER  IF 
NECESSARY.  IF  A  CARD  IS  TO  BE  READ  OR 
A  LINE  TO  PRINTED  THEN  THE  APPROPRIATE 
SUBROUTINE  IS  CALLED 
FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  11,  12,  13,  24 
CALLING  EVENTS:  NONE. 

SUBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  NONE. 

AUTHOR:  DAVID  L.  OWEN 
HISTORY:  N/A. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


C********** ******** ********** ******************** ********** 


SUBROUTINE  DTRAN 

COMMON /S COM 1/  ATRIB ( 1 00 ) , DD ( 1 00 ) , DDL( 1 00 ) , DTNOW  , 1 1 , MFA 
1 , MSTOP , NCLNR , NCRDR , NPR NT , NNR UN , NNS ET , NTAPE , S S ( 1 00 ) 

1 ,SSL( 100) .TNEXT, TNOW ,XX( 100) 

C0MM0N/UC0M1/A( 100),  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM( 5) ,  CFIN(5) ,  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C0MM0N/UC0M3/TAP(10,7),  TCNT(IO),  TSIRT(IO),  TSUM( 10) ,TFIN( 10) 
C0MM0N/UC0M4 /CARD ( 6 ) , PR  NTR ( 6 ) 

PARAMETER  (ON  -  1.0,  SPLR-40.0,  0SPLR-41.0) 

C***  IF  IT  IS  A  DISK  TRANSFER 

IF  ((ATRIB(19)  .GE.  21.)  .AND.  (ATRIB(19)  .LE.  30.))  THEN 

NDSK  -  NINT(ATRIB(19)  -  20) 

C***  IF  H/W  MON  IS  ON  THEN  UPDATE  DISK  AND  CHANNEL  DATA 
IF  (XX(30)  .EQ.  ON)  THEN 

DCNT(NDSK)  -  DCNT(NDSK)  +  1 
IF  (DSTRT(NDSK)  .NE.  -1.0)  THEN 
IF  (DFIN(NDSK)  .LT.  TNOW)  THEN 

DSUM(NDSK)  -  DSUM(NDSK)  +  DFIN(NDSK)  -  DSTRT(NDSK) 
DSTRT(NDSK)  »  TNOW 
END  IF 
ELSE 

DSTRT(NDSK)  -  TNOW 
END  IF 
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c** ******************************************** ************ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 


NAME:  ACTLG  (ACTIVITY  LOG)  * 

EVENT  NUMBER:  19  * 

FUNCTION:  WRITE  ACOUNTING  DATA  TO  THE  ACCOUNTING  * 
LOG  * 

FILES  READ:  NONE.  * 

FILES  WRITTEN:  ACTLOG  * 

EVENTS  CALLED:  NONE.  * 

CALLING  EVENTS:  NONE.  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  NONE.  * 

* 

AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


Q***************************** ************** *************** 


SUBROUTINE  ACTLG 

COMMON/ SC0M1 /  ATRIB ( 1 00 ) , DD( 1 00) , DDL ( 1 00 ) , DTNOW ,11, MFA , MSTOP 
1 , NCLNR , NCRDR , NPR NT , NNRUN , NNS ET , NTAPE , S S ( 1 00 ) 

1 ,SSL( 100) ,TNEXT,TNGW  ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20, 2 ) ,  TAPE(20,3) 

C0MM0N/UC0M2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 


C***  SET  DEPARTURE  TIME  TO  TNOW 
ATRIB( 15)  »  TNOW 


C  WRITE  ARRIVAL  TIME,  JOB  NAME,  CPU  TIME  REQUIRED,  MEMORY,  PRIORITY, 
C  ALLOCATABLE  DEVIECES  NEEDED,  CARDS,  LINES,  DISK  BLOCKS, 

ALLOCATABLE 

C  DEVICE  BLOCKS,  JOB  TYPE,  CPU  TIME  USED,  I/O  TIME  USED,  MEMORY  SIZE 
C  USED,  AND  DEPARTURE  TIME  TO  THE  ACOUNTING  DATA  FILE 

PRINT  *,'****************  WRITING  ACT  DATA  NOW  ***********' 

PRINT  *,(ATRIB(I), 1-1,15) 

WRITE  (UNIT-12, FMT-2 .ERR-990) (AIRIB( I), 1-1,15) 

2  F0RMAT(1X, F15.4, 1X.F10.0, 1X,F5.0,1X,F5.0,1X,F5.0,IX,F5.0, 

1  1X.F6.0, 1X,F6.0,1X,F6.0,1X,F6.0,1X,F2.0,1X,F10.3,1X, 

l  F10.3,1X,F6.1,1X,F15.4) 

RETURN 


990  PRINT  *, 'ERROR  IN  WRITING  TO  ACCOUNTING  DATA  FILE' 
RETURN 
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£********************************★************************* 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c********************************************************** 


DATE:  5  DEC  1983 

VERSION:  1.0 

NAME:  WMON  (HARDWARE  MONITOR) 

EVENT  NUMBER:  20 

FUNCTION:  WRITE  HARDWARE  MONITOR  DATA.  RESECTS 
COUNTERS  AND  TIMERS.  SCHEDULES  NEXT  TIME 
TO  RECORD  HA?  MONITOR  DATA 
FILES  READ:  NONE. 

FILES  WRITTEN:  HRDMON 
EVENTS  CALLED:  20 
CALLING  EVENTS:  NONE. 

SUBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  NONE. 

AUTHOR:  DAVID  L.  OWEN 
HISTORY:  N/A. 


★ 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

* 

* 

* 

* 

* 

* 

it 

* 


SUBROUTINE  HWMON 

COMMON/ SCOM1 /  AIR  IB ( 1 00) , DD( 100 ) , DDL( 1 00) , DTNOW , II , MFA, MSTOP 
1 , NCLNR , NCR DR , NPRNT, NNR UN , NNS ET, NTA PE , SS (1 00 ) 
1,SSL(100),TNEXT,TN0W ,XX(100) 

COMMON/UCOM1/A(100) ,  PART(20, 2) ,  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10,7),  DCNT(IO) ,  DSTRT(IO),  DSUM( 10) , DFIN( 10) , 
1  CCNT(5),  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C0MM0N/UC0M3/TAP( 10, 7 ) ,  TCNT(IO),  TSTRT(IO),  TSUM( 10) ,TFIN( 10) 
C0MM0N/UC0M6 / IPROBE ( 5 ) 

DIMENSION  TIMER(2),ICNTER(3) 

PARAMETER (OFF-O.O,  ON-1.0,  ST— 1.0) 

C***  CHECK  TO  SEE  IF  IT  TIME  TO  START  H/W  MONITOR 
IF  (XX(33)  .EQ.  TNCW)  THEN 
PRINT  *, 'START  OF  H/W  MON' 

XX(30)  -  ON 

C**  INITIALIZE  START  TIMES,  STOP  TIMES,  COUNTS  AND  SUMS 

RSTRT  -  ST 
PSTRT  -  ST 
XX(36)  -  ST 
XX(37)  -  0.0 
RSUM  »  0.0 
PSUM  -  0.0 
XX(31)  -  0.0 
RCNT  -  0.0 
PCNT  -  0.0 
XX(37)  -  0.0 


RFIN  -  0.0 
PFIN  -  0.0 
DO  60  1-1,10 
DSIRT(I)  -  ST 
TSTRT(I)  »  ST 
DSlfM(I)  =  0.0 
TSUfi(l)  «  0.0 
DFIN(I)  -  0.0 
TFIN(I)  -  0.0 
DCNT(I)  -  0.0 
TCNT(I)  -  0.0 

60  CONTINUE 

DO  61  1-1,5 
CSTRT(I)  -  ST 
CSUM(I)  -  0.0 
CCNT(I)  -  0.0 
CFIN(I)  -  0.0 

61  CONTINUE 

CALL  SCHDL(20,XX(35),ATRIB) 
RETURN 
END  IF 


C***  IF  H/W  MON  IS  ON  THEN 

IF  (XX(30)  .EQ.  ON)  THEN 

C***  CALCULATE  CPU  TIME 

IF  (XX(36)  .NE.  -1.0)  THEN 
IF  (XX( 37 )  .GT.  TNOW)  THEN 

XX(32)  -  XX(32)  +  TNOW  -  XX(36) 

XX ( 3  6 )  -  TNOW 
ELSE 

XX(32)  -  XX(32)  +  XX(37)  -  XX(36) 
XX(36)  -  -1.0 
END  IF 
END  IF 

C***  CALCULATE  CARD  READER  TIME 
IF  (RSTRT  .NE.  -1.0)  THEN 
IF  (RFIN  .GT.  TNOW)  THEN 
RSUM  -  RSUM  +  TNOW  -  RSTRT 
RSTRT  -  TNOW 
ELSE 

RSUM  »  RSUM  +  RFIN  -  RSTRT 
RSTRT  =  -1.0 
END  IF 
END  IF 

C***  CALCULATE  LINE  PRINTER  TIME 
IF  (PSTRT  .NE.  -1.0)  THEN 
IF  (PFIN  .GT.  TNOW)  THEN 


c*** 


50 

c*** 


51 

C*** 


52 

C*** 


PSUM  =  PSUM  +  TNCW  -  PSTRT 
PSTRT  -  TNCW 
ELSE 

PSUM  -  PSUM  +  PFIN  -  PSTRT 
PSTRT  -  -1.0 
END  IF 
END  IF 

CALCULATE  DISK  TIME 
DO  50  1-1,10 

IF  (DSTRT(I)  .NE.  -1.0)  THEN 
IF  (DFIN(I)  .GT.  TNCW )  THEN 

DSUM(I)  -  DSUM(I)  +  TNCW  -  DSTRT(I) 
DSTRT(I)  -  TNCW 
ELSE 

DSUM(I)  =  DSUM(I)  +  DFIN(I)  -  DSTRT(I) 
DSTRT(I)  -  -I . 0 
END  IF 
END  IF 
CONTINUE 

CALCULATE  TAPE  TIME 
DO  51  1-1,10 

IF  (TSTRT(I)  .NE.  -1.0)  THEN 
IF  (TFIN(I)  .GT.  TNCW )  THEN 

TSUM(I)  -  TSUM(I)  +  TNCW  -  TSTRT(I) 
TSTRT(I)  -  TNCW 
ELSE 

TSUM(I)  -  TSUM(I)  +  TFIN(I)  -  TSTRT(I) 
TSTRT(I)  -  -1.0 
END  IF 
END  IF 
CONTINUE 

CALCULATE  CHANNEL  TIME 
DO  52  1-1,5 

IF  (CSTRT(I)  .NE.  -1.0)  THEN 
IF  (CFIN(I)  .GT.  TNCW )  THEN 

CSUM(I)  -  CSUM(I)  +  TNOW  -  CSTR7(I) 
CSTRT( I)  -  TNCW 
ELSE 

CSUM(I)  -  CSUM(I)  +  CFIN(I)  -  CSTRT(I) 
CSTRT(I)  -  -1.0 
END  IF 
END  IF 
CONTINUE 

GET  TIMER  VALUES  OF  TIMER  PROBES 
DO  700  1-1,2 

IF  (IPROBE(I)  .EQ.  1)  THEN 
TIMER(I)  -  XX(31) 

GOTO  700 
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END  IF 

IF  ( I PROBE ( I )  .EQ.  2)  THEN 
TIMER(I)  =  RSCJM 
GOTO  700 
END  IF 

IF  ((IPROBE(I)  .GE.  11)  .AND.  (IPROBE(I)  .LE.  20))  THEN 
TIMER(I)  -  TSUM(IPR0BE(I)-10) 

GOTO  700 
END  IF 

IF  ( (IPROBE(I)  .GE.  21)  .AND.  (IPROBE(I)  .LE.  30))  THEN 
TIMER(I)  »  DSUM(IPROBE(I)-20) 

GOTO  700 
END  IF 

IF  ((IPROBE(I)  .GE.  31)  .AND.  (IPROBE(I)  .LE.  35))  THEN 
TIMER(I)  =  CSUM( IPR0BE(I)-30) 

GOTO  700 
END  IF 

C***  IF  NONE  OF  THE  ABOVE  THEN  PROBE  NOT  CONNECTED 
TIMER(I)  *  0.0 

700  CONTINUE 

C***  GET  COUNTER  VALUES  OF  COUNTER  PROBES 
DO  710  1-3,5 
K  -  I  -  2 

IF  (IPROBE(I)  .EQ.  1)  THEN 
ICNTER(K)  -  NINT(XX(32) ) 

GOTO  710 
END  IF 

IF  ( IPROBE ( I )  .EQ.  2)  THEN 
ICNTER(K)  -  NINT(RCNT) 

GOTO  710 
END  IF 

IF  ((IPROBE(I)  .GE.  11)  .AND.  (IPROBE(I)  .LE.  20))  THEN 
ICNTER(K)  -  NINT(TCNT(IPROBE(I)-10)) 

GOTO  710 
END  IF 

IF  ((IPROBE(I)  .GE.  21)  .AND.  <IPROBE(I)  .LE.  30))  THEN 
ICNTER(K)  -  NINT(DCNT( IPROBE( I)-20) ) 

GOTO  710 
END  IF 

IF  ((IPROBE(I)  .GE.  31)  .AND.  (IPROBE(I)  .LE.  35))  THEN 
ICNTER(K)  -  NINT(CCNT(IPR0BE(I)-30)) 

GOTO  710 
END  IF 

C***  IF  NONE  OF  THE  ABOVE  THEN  PROBE  NOT  CONNECTED 
ICNTER(K)  -  0.0 

710  CONTINUE 


PRINT  *,'********  WRITING  HWMON  DATA  NOW  ****************' 
PRINT  *,TNOW , TIMER ( 1 ) , TIMER (2 ) , ( ICNTER(I ) , 1-1 ,3) 
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C***  WRITER  H/W  MONITOR  DATA  TO  DISK 

WRITE (UNIT-1 3 , FMT-3 , IOSTAT-IOS , ERR-990 > TNCW  , TIMER ( I ) , TIMER ( 2 ) , 
1  (ICNTER(I), 1-1,3) 

3  F0RMAT(1X,F15.4,1X,F8.3,1X,F8.3,1X,I5,1X,I5,1X,I5) 


C***  RESET  CPU  COUNT,  AND  CPU  SUM 
IF  (XX(37)  .LE.  TNOW)  THEN 
XX(31)  -  0. 

ELSE 

XX(31)  -  1.0 
END  IF 
XX(32)  -  0. 

C***  RESET  READER  COUNT,  AND  READER  SUM 
IF  (RFIN  .LE.  TNOW)  THEN 
RCNT  -  0. 

ELSE 

RCNT  -  1.0 
END  IF 
RSUM  -  0. 

C***  RESET  PRINTER  COUNT,  AND  PRINTER  SUM 
IF  (PFIN  .LE.  TNOW)  THEN 
PCNT  -  0. 

ELSE 

PCNT  -1.0 

END  IF 
PSUM  -  0. 

C***  RESET  TAPE  COUNT,  AND  TAPE  SUM 
DO  12  1-1,10 

IF  (TFIN(I)  .LE.  TNOW)  THEN 
TCNT(I)  -  0. 

ELSE 

TCNT(I)  -  1.0 
END  IF 
TSUM(I)  -  0. 

12  CONTINUE 

C***  RESET  DISK  COUNT,  AND  DISK  SUM 
DO  9  1-1,10 

IF  (DFIN(I)  .LE.  TNOW)  THEN 
DCNT(I)  -  0. 

ELSE 

DCNT(I)  -  1.0 
END  IF 
DSUM(I)  -  0. 

9  CONTINUE 

C***  RESET  CHANNEL  COUNT  AND  CHANNEL  TIME 
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DO  10  1-1,5 

IF  (CFIN(I)  .LE.  TNCW )  THEN 
CCNT(I)  -  0. 

ELSE 

CCNT(I)  -  1.0 
END  IF 
CSUM(I)  -  0. 

10  CONTINUE 

C***  CHECK  TO  SEE  IF  IT  TIME  TO  TURN  OFF  THE  H/W  MON 
IF  (XX(34)  .LE.  TNOW )  THEN 

PRINT  *, 'TURNING  OFF  H/W  MON  NOW' 

XX(30)  -  OFF 
RETURN 
ELSE 

C***  SCEDULE  NEXT  RECORDING  OF  H/W  MONITOR  DATA 
CALL  $CHDL(20,XX(35),ATRIB) 

RETURN 
END  IF 

C***  END  OF  IF  H/W  MON  IS  ON 
END  IF 

RETURN 

990  PRINT  *, 'ERROR  IN  WRITING  TO  H/W  MON' 

PRINT  *,'IOSTAT  -  ' , IOS 
RETURN 

END 
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0* ********************************************************* 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  LSMON  (LOAD  S/W  MONITOR)  * 

C  EVENT  NUMBER:  21  * 

C  FUNCTION:  LOADS  S/W  MONITOR  INTO  HOLD  QUEUE  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  NONE.  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  INTLC  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

0** ************************************************* ******* 

SUBROUTINE  LSMON 

COMMON/ SCOM I /  ATRIB( 100 ) , DD( 100) , DDL( 100) , DTNOW  , II ,MFA 
1 , MS TOP , NClNR , NCRDR , NPRNT , NNRUN , NNSET , NTAPE , S  S ( 1 00) 

1 , SSL (100) , TNEXT,TNOW  , XX( 100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20, 3) 

C0MM0N/UC0M2/DISK(10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM(10),FIN(10), 
1  CCNT(5) ,  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

REAL  AA(24) 

PARAMETER  (SWMN-4.0.0N-1.0) 

C***  SET  A TRIBUTES  FOR  S/W  MONITOR 

C**  ARRIVAL  TIME  =  TNCW 
AA(1)  -  TNOW 

C**  JOB  NAME  -  997  (DUMMY  NUMBER  FOR  S/W  MONITOR) 

AA(2 )  -  997. 

C**  MEMORY  SIZE  NEEDED  IS  4K 
AA(4)  -  4.0 

C***  SET  JOB  TYPE  TO  INPUT  SPOOLER 
AA(ll)  -  SWMN 

C***  INITIALIZE  OTHER  A TRIBUTES  TO  0 
AA( 3)  -  0 
AA( 5 )  -  0 
AA(6)  -  0 
AA( 7 )  -  0 
AA(8 )  -  0 
AA( 9 )  -  0 
AA(10)  -  0 
DO  11  1-12,24 
AA( I )  -  0 
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11 


CONTINUE 


C***  INITIALIZE  ATRIB(21)  TO  ARRIVED  WHILE  S/W  MON  NOT  ON 
AA(21 )  -  99. 

C***  PUT  S/W  MON  INTO  HOLD  QUEUE 
CALL  ENTER(21 ,AA) 

RETURN 

END 


I 

I 

i 


i 

i 

i 

! 


£**★★****  *********************** *************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 


DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 


NAME:  ESMON  (END  OF  S/W  MONITOR  TRACE)  * 

EVENT  NUMBER:  22  * 

FUNCTION:  TERMINATES  S/W  MONITOR  TRACE  AND  FREES  * 

MFMORY  PARTITION.  IF  NECESSARY  IT  WILL  * 
LOAD  JOB  SCHEDULER.  * 

FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  5  * 

CALLING  EVENTS:  NONE.  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  SSMON  * 

* 


AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


Q** ************************************************** ****** 


SUBROUTINE  ESMON 

COMMON/ SCOM1/  ATRIB( 100) ,DD(100) , DDL (100) .DTNOW , II ,MFA 
l , MS  TOP , NCLNR , NCRDR , NFR  NT , NNR  UN , NNS  ET , NTA  PE , S  S ( 1 00 ) 

1 , SSL ( 1 00 ) , TNEXT , TNOW , XX( 1 00 ) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(IO),  DSIRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER (FRE-O.O,  BUSY-1.0,  OFF-O.O) 

PRINT  *,'END  OF  SOFTWARE  MONITOR  TRACE' 

C***  TURN  OFF  S/MON  ON  FLAG 
XX(2)  -  OFF 

C***  SET  CPU  RATIO  BACK  TO  100Z 
XX(5)  -  1.0 

C***  FIND  MEMORY  PARTION  USED  AND  FREE  IT 
DO  5  III-l ,XX(3) 

IF  (PART(III.l)  .EQ.  ATRIB(14))  THEN 
PART(III,2)  -  FRE 
GOTO  10 
END  IF 

5  CONTINUE 

C***  IF  THIS  STATEMENT  IS  REACHED  A  PARTION  WAS  NOT  FOUND 

PRINT  *, 'ERROR  -  UNABLE  TO  FIND  MEMORY  PARTION  TO  FREE' 

PRINT  * , 'JOB  ATRIBUTES  ARE' 

PRINT  *,(ATRIB(I), 1-1,20) 
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PRINT  *, 'MEMORY  PARTIONS  ARE' 
DO  6  J»1,XX(3) 

PRINT  *,PART(J, I) ,PART(J,2) 
CONTINUE 
RETURN 


LOAD  JOB  SCHEDULER  INTO  EXECQ  IF  IT  ISN'T  ALREADY 
IF  (XX(ll)  .NE.  1.)  THEN 
CALL  LJSCH 
XX(ll)  -  1.0 
END  IF 


RETURN 

END 
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£** *******4* ******************************** ******* ******** 


c 

C  DATE:  5  DEC  1983 

C  VERSION:  1.0 

C 

C  NAME:  SMON  (S/W  MONITOR) 

C  EVENT  NUMBER:  23 

C  FUNCTION:  RECORDS  S/W  MONITOR  DATA 

C  FILES  READ:  NONE. 

C  FILES  WRITTEN:  SFTMON 

C  EVENTS  CALLED:  NONE. 

C  CALLING  EVENTS:  NONE. 

C  SUBROUTINES  CALLED:  NONE. 

C  CALLING  SUBROUTINES:  NONE. 

C 

C  AUTHOR :  DAVID  L.  OWEN 

C  HISTORY:  N/A. 

C 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


C** *********************************************** ********* 


SUBROUTINE  SMON 

COMMON/SCOM1/  ATRIB( 100) ,DD( 1 00), DDL ( 1 00) ,DTNOW , II ,MFA 
1 , MSTOP, NCLNR , NCR DR , NPRNT, NNRUN, NNSET, NTAPE , SS( 100) 

1 , SSL( 1 00) , TNEXT , TNOW  , XX( 1 00 ) 

COMMON/UCOMl/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) , DFIN( 10) , 
1  CCNT(5) ,  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 
C0MM0N/UC0M5/IQ(5) 


CHARACTER  NAMES (42) *15 

DATA  NAMES/'JOB  ARRIVAL  '.'INPUT  QUEUE 


1 'HOLD 

QUEUE 

','EXEC 

QUEUE 

' ,'OUPUT  QUEUE 

I'ARVL 

SPOOL 

','ARVL 

OS  POL 

','ARVL  S/WMON 

l'ARVL 

JSCHED 

' ,'JOB  FINISHED 

' , 'NOT  USED 

* 

1 'TAPE 

1  QUEUE 

' , 'TAPE 

2  QUEUE 

' ,'TAPE  3  QUEUE 

* 

1 'TAPE 

4  QUEUE 

' , 'TAPE 

5  QUEUE 

' , 'TAPE  6  QUEUE 

* 

1'TAPE 

7  QUEUE 

' , 'TAPE 

8  QUEUE 

','TAPE  9  QUEUE 

* 

l'TAPE 

10  QUEUE 

', 'DISK 

1  QUEUE 

','DISK  2  QUEUE 

* 

l'DISK 

3  QUEUE 

' ,'DISK 

4  QUEUE 

','DISK  5  QUEUE 

* 

l'DISK 

6  QUEUE 

' , 'DISK 

7  QUEUE 

','DISK  8  QUEUE 

* 

l'DISK 

9  QUEUE 

','DISK 

10  QUEUE 

','CHAN  1  QUEUE 

* 

I'CHAN 

2  QUEUE 

' , 'CHAN 

3  QUEUE 

','CHAN  4  QUEUE 

* 

1 'CHAN 

5  QUEUE 

','CPU 

'.'GENERAL  CHAN 

* 

1 'NOT  USED 
l 'OS POOL  QUEUE 

' , 'NOT  USED 
'/ 

'SPOOL  QUEUE 

* 

C***  CHECK  TO  SEE  IF  IT  IS  ONE  OF  THE  5  QUEUES  BEING  MONITORED 
KQ  -  NINT(ATRIB(21)) 

IF  ((KQ  .EQ.  IQ(i ) )  .OR.  (KQ  .EQ.  IQ(2))  .OR.  (KQ  .EQ.  IQ(3)) 
1  .OR.  (KQ  .EQ.  IQ(4) )  .OR.  (KQ  .EQ.IQ(5)))  THEN 

C***  CALCULATE  TIME  IN  QUEUE 
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TIME  -  TNOW  -  ATRIB( 22 ) 

C***  TABLE  LOOK  UP  FOR  QUEUE  NAMES 

C***  CREATE  INTEGER  INDEXES  TO  LOOK  UP  NAMES 

C***  NOTE:  NEED  TO  OFFSET  BY  ONE  BECAUSE  ARRAY  STARTS  AT  1  NOT  0 
IQUEUE  -  NINT(ATRIB(21)  +  1) 

IFROM  -  NINT(ATRIB(2'5>  +1) 

ITO  «  NINT(ATRIB( 24/  +  1) 

PRINT  *, 'WRITING  S/W  MON  DATA  NOW' 

PRINT  ' JOB-  ' , ATRIB( 2 ) , '  Q-  '.NAMES ( IQUEUE) ,'  TIME  -  ', 

1  TIME,'  FROM-  ',NAMES( IFROM),'  TO-  '.NAMES(ITO) 

WRITE  (UNIT-14 , FMT-I , IOSTAT-IOS , ERR- 9 90) NAMES ( IQUEUE) , TIME , 
I  NAMES(IFROM) , NAMES(ITO) 

1  F0RMAT(IX,A15,IX,F8.3, IX.A15, 1X.A15) 

RETURN 
EJD  IF 

C*  IN  FOR  DEBUG  ONLY 

IF  (AIRIB(21)  .EQ.  99.)  THEN 

PRINT  *,'JOB  ENTERED  QUEUE  BEFORE  S/W  MON  WAS  TURNED  ON' 

ELSE 

PRINT  * , 'SWMON  NOT  MONITORING  THIS  QUEUE' 

PRINT  *,'Q  IS  ',NAMES(KQ+I ) 

END  IF 
RETURN 

990  PRINT  *, 'ERROR  IN  WRITING  TO  S/W  MON  DATA  FILE' 

PRINT  *, 'IOSTAT  -  '.IOS 

RETURN 

END 
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£********************************************************** 


C  * 
C  DATE:  5  DEC  1983  * 
C  VERSION:  1.0  * 
C  * 
C  NAME:  PBUFF  (PRINT  BUFFER)  * 
C  EVENT  NUMBER :  24  * 
C  FUNCTION:  PRINTS  BUFFER  TO  LINE  PRINTER  * 
C  FILES  READ:  NONE.  * 
C  FILES  WRITTEN:  NONE.  * 
C  EVENTS  CALLED:  17  * 
C  CALLING  EVENTS:  16  * 
C  SUBROUTINES  CALLED:  NONE.  * 
C  CALLING  SUBROUTINES:  NONE.  * 
C  * 
C  AUTHOR:  DAVID  L.  OWEN  * 
C  HISTORY:  N/A.  * 
C  * 


£********************************************************** 

SUBROUTINE  PBUFF 

COMMON/ SC0M1/  ATRIB( 100) ,DD( 100) ,DCL( 100) ,DTNOW  . II ,MFA 
1 , MS TOP , NCLNR , NCR DR , NPR  NT , NNR  UN , NNSET , NTAPE , S  S ( 1 00 ) 

1,SSL(100) ,TNEXT,TNGW  ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7),  DCNT(IO),  DSIRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5),  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN ,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER (ON-  1.0) 

C***  UPDATE  CPU  TIME  USED 

ATRIB( 12)  -  ATRIB(12)  +  (TNCW  -  XX(4))  *  XX(5) 

C***  UPDATE  NUMBER  OF  LINES  LEFT  TO  PRINT 
IF  (ATRIB(8)  .LE.  XX(27))  THEN 
AIRIB(8)  -  0. 

ELSE 

ATRIB(8)  -  ATRIB(8 )  -  XX(27) 

END  IF 

C***  FREE  CPU 

CALL  FREE (3,1) 

C***  IF  H/W  MON  IS  ON  THEN  UPDATE  PRINTER  AND  CHANNEL  DATA 
IF  (XX(30)  .EQ.  ON)  THEN 
PCNT  -  PCNT  +  1 
IF  (PSTRT  .NE.  -1.0)  THEN 
IF  (PFIN  .LT.  TNOW )  THEN 
PSUM  -  PSUM  +  PFIN  -  PSTRT 
PSTRT  -  TNCW 
END  IF 
ELSE 
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PSTRT  -  TNCW 
END  IF 

PFIN2  -  ( (XX(27)  /  XX(25) )*  60)  +  TNOW 
IF  (PFIN2  .GE.  PFIN)  THEN 
PFIN  -  PFIN2 
END  IF 

NCHL  -  NINT(ATRI8(2C;) 

IF  ( CSTRT(NCHL)  .NE.  -1.0)  THEN 
IF  (CFIN(NCHL)  .LT.  TNOW )  THEN 

CSUM(NCHL)  *  CSUM(NCHL)  +  CFIN(NCHL)  -  CSTRT(NCHL) 
CSTRT(NCHL)  =  TNOW 
ELSE 

CCNT(NCHL)  ■  CCNT(NCHL)  +  1 
END  IF 
ELSE 

CSTRT(NCHL)  -  TNOW 
CCNT(NCHL)  -  CCNT(NCHL)  +  1 
END  IF 

IF  (PFIN2  .GT.  CFIN(NCHL) )  THEN 
CFIN(NCHL)  -  PFIN2 
END  IF 
END  IF 

C***  SCHEDULE  COMPLETION  OF  PRINTING  BUFFER 

CALL  SCHDL  (17,(XX(27)  /  XX(25)>  *  60.ATRIB) 

RETURN 

END 
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C************* ********  ************************************* 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  L.O  * 

C  * 

C  NAME:  ATAPE  (ASSIGN  TAPES)  * 

C  EVENT  NUMBER:  N/A  * 

C  FUNCTION:  ASSIGNS  TAPE  DRIVES  TO  JOB  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  NONE.  * 

C  CALLING  EVENTS:  NONE.  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  JSCHD  * 

C  * 

C  AUTHOR:  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

(^* ******* ****************  ********************************** 


SUBROUTINE  ATAPE 

COMMON /S COM I /  ATRIB ( 100 ) , DD( 1 00) , DDL( 1 00) , DTNOW , I I , MFA 
1 ,MSTOP , NCLNR , NCRDR , NPRNT, NNRUN,NNSET, NTAPE , SS( 100) 

1 , SSL( 100) ,TNEXT, TNOW  ,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT( 5) ,  CSUM( 5 ) ,  CFIN(5),  CSTRT(5),  RCNT.RSTRT.RFIN.RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER (FREE  -  0.0,  BUSY  -  1.0) 

C***  ACQUIRE  NUMBER  OF  TAPES  REQUESTED 
DO  10  III-1,A(6) 

C**  FIND  FREE  TAPE 

DO  5  JJJ»1,XX(9) 

IF  (TAPE(JJJ,2)  .EQ.  FREE)  THEN 
TAPE( JJJ , 2 )  -  BUSY 
TAPE(JJJ, 3)  =  A(2) 

C*  DECREMENT  NUMBER  OF  AVAILABLE  TAPE  DRIVES 

XX(10)  =*  XX(10)  -  1 
GOTO  10 
END  IF 

5  CONTINUE 

C  IF  THIS  STATEMENT  IS  REACHED  THEN  TAPES  WERE  NOT  ASSIGNED 
PRINT  *, 'UNABLE  TO  ASSIGN  TAPES  PROPERLY' 

10  CONTINUE 

RETURN 

END 
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£********************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 

NAME:  JSCHD  (JOB  SCHEDULER)  * 

EVENT  NUMBER:  N/A  * 

FUNCTION:  ASSIGNS  RESOl’CES  TO  JOBS  IN  THE  HOLD  * 

QUEUE  AND  THEN  SENDS  JOB  TO  EXECU7ER  QUEUE* 

FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  18  * 

CALLING  EVENTS:  4  * 

SUBROUTINES  CALLED:  ATAPE  * 

CALLING  SUBROUTINES:  NONE.  * 

* 


AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

C  * 

£********************************************************** 


SUBROUTINE  JSCHD 

C0MM0N/SC0M1 /  ATR IB ( 1 00 ) , DD( 1 00 ) , DDL ( 1 00 ) , DTNOW , I I , MFA 
1 ,MSTOP,NCLNR ,NCRDR , NPRNT,NNRUN,NNSET, NTAPE , SS( 100) 

1,SSL(100), TNEXT , TNCW  ,XX(100) 

COMMON/UCOM1/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) , DFIN(IO) , 
1  CCNT(5),  CSUM( 5 ) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PC NT,  PSTRT,  PFIN,  PSUM 

PARAMETER (ON  -  1.0,  FREE-0.0,  BUSY=1.0) 

C***  PRINT  JOB  SCHEDULER  STARTED 
CXXXXXPRINT  * , 'JOB  SCHEDULER  IS  NOW  EXECUTING' 

C***  PRINT  MEMORY  PARTIONS 
CXXXXXPRINT  *, 'MEMORY  PARTIONS  ARE' 

CXXXXXPRINT  * , ( PART (1,1), PART( I , 2 ) , 1=1 ,XX(3)) 

CXXXXXPRINT  *, 'TAPES  ARE' 

CXXXXXPRINT  *,(TAPE(1, 1 ) ,TA?E( 1 , 2) , TAPE(I, 3) , 1-1 ,XX(9  )  ) 

C 

C***  FOR  I  -  1,  NUM- IN-HOLD  QUEUE  DO 
III  -  1 

15  IF  (NNQ(2)  .EQ.  0)  GOTO  10 

IF  (III  .GT.  NNQ(2 ) )  GOTO  10 

C***  COPY  THE  ATR IBUTES  OF  THE  JOB 
CALL  COPY (III, 2, A) 

C***  PRINT  WHAT  JOB  LOOKING  AT  FOR  DEBUG  PURPOSES 
CXXXXXPRINT  *, 'TRYING  TO  FIND  RESOURCES  FOR:' 

CXXXXXPRINT  *,(A(K),K»1,20) 
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C**  WHILE  JJJ  .LE.  NUM-QF-PARTIONS 
DO  5  JJJ-1,XX(3) 

C*  CHECK  TO  SEE  IF  PARTION  IS  LARGE  ENOUGH  AND  FREE 

IF  ( (PART( JJJ, 1)  .GE.  A(4 ) )  .AND. 

1  (PART(JJJ,2)  .EQ.  FREE))  THEN 

C 

CXXXXXPRINT  *, 'PARTION  ',JJJ,  '  IS  GOOD' 

C 

C*  CHECK  TO  SEE  IF  ENOUGH  TAPE  DRIVES  ARE  AVAILABLE 

IF  (XX(IO)  .GE.  A( 6 ) )  THEN 
CXXXXXPRINT  *, 'ENOUGH  TAPES,  ACQUIRE  RESOURCES' 

C*  GET  JOB  FROM  HOLD  QUEUE 

CALL  RMOVE(III,2,A) 

C  ACQUIRE  MEMORY  PARTITION 

C***  PRINT  WHAT  PARTION  USED  FOR  DEBUG 

CXXXXXPRINT  *, 'PARTION  ', JJJ, 'USED' 

PART( JJJ, 2 )  -  BUSY 

C  MEMORY-SIZED-USED  -  PARTION  SIZE 

A( 14)  -  PART(JJJ.l) 

C  ACQUIRE  TAPES 

CALL  ATAPE 

C***  PUT  JOB  INTO  EXEC  QUEUE 

CALL  FILEM( 5 ,A) 

C***  PRINT  MEMORY  PARTIONS 
CXXXXXPRINT  *, 'MEMORY  PARTIONS  ARE' 

CXXXXXPRINT  *,(PART(I,1),PART(I,2),I~1,XX(3)) 

CXXXXXPRINT  *, 'TAPES  ARE' 

CXXXXXPRINT  * , (TAPE (I , 1) ,TAPE(I , 2) ,TAPE(I , 3) , 1*1 ,XX(9) ) 

C*  FOUND  RESOURCES  SO  GO  TO  NEXT  JOB  IN  HOLD  QUEUE 

GOTO  15 
END  IF 

END  IF 
C 

5  CONTINUE 

C***  THIS  STATEMENT  REACHED  ONLY  IF  JOB  NOT  ALLOCATED 
C***  IF  JOB  NOT  ALLOCATABLE  THEN  WRITE  SO 

CXXXXXPRINT  *, 'JOB  NOT  ALLOCATED' 

C***  INCREMENT  POINTER  IN  HOLDQ 

III  -  III  +  1 

C***  GO  BACK  AND  CHECK  NEXT  JOB 

GOTO  15 

10  CONTINUE 

C***  IF  H/W  MON  -  ON,  THEN  COLLECT  TIMER  DATA 
IF  (XX( 30)  .EQ.  ON)  THEN 

IF  (XX(36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNOW )  THEN 
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XX( 32 )  -  XX(32)  +  XX(37 )  -  XX(36) 
XX ( 36)  ■»  TNOW 
END  IF 
ELSE 

XX(36)  -  TNOW 
END  IF 

UFIN2  -  XX(13)  +  TNOW 
IF  (UFIN2  .GE.  XX<37))  THEN 
XX(37)  -  UFIN2 
END  IF 

END  IF 

C 

C***  SET  JSCHED  IN  EXECQ  FLAG  TO  FALSE 
XX(L1)  =  0. 

C 

C***  SCHEDULE  COMPLETION  OF  JOB  SCHEDULER 
CALL  SCHDL(18 , XX( 13) ,ATRIB) 

C 

RETURN 

END 
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£********************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATE:  5  DEC  1983 
VERSION:  1.0 

NAME:  OSPOL  (OUTPUT  SPOOLER) 

EVENT  NUMBER:  N/A 

FUNCTION:  SPOOLS  JOB  ON  DISK  TO  THE  PRINTER 
FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  8,  15 
CALLING  EVENTS:  4 
^  JBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  NONE. 

AUTHOR:  DAVID  L.  OWEN 
HISTORY:  N/A. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


c********************************************************** 


SUBROUTINE  OSPOL 

COMMON/SCOMl/  ATRIB( 100) , DD( 100) , DDL( 100) .DTNOW  , II ,MFA 
1 , MSTOP , NCLNR , NCRDR , NPRNT, NNRUN, NNSET, NTAPE, SS(IOO) 

1 , SSL ( 100) , TNEXT.TNOW ,XX( 100) 

C0MM0N/UC0M1 /A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) , DFIN( 10) , 

1  CCNT(5) ,  CSUM(5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER  (OSPLR-4 1 . 0 , 0N=1 . 0 , OFF-0 . 0 , NEW -0 . 0 , BFULL-1 . 0 , BEMPT-2 . 0 ) 

C***  IF  H/W  MON  IS  ON  THEN  COLLECT  CPU  TIMER  DATA 
IF  (XX(30)  .EQ.  ON)  THEN 

IF  (XX( 36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNOW)  THEN 

XX( 32 )  »  XX(32)  +  XX(37)  -  XX(36) 

XX ( 36)  -  TNOW 
END  IF 
ELSE 

XX( 36)  -  TNOW 
END  IF 

UFIN2  «  XX ( 14)  +  TNOW 
IF  (UFIN2  .GE.  XX(37))  THEN 
XX(37)  -  UFIN2 
END  IF 


END  IF 

C***  IF  START  OF  NEW  JOB  SPOOLING 
IF  (XX( 16)  .EQ.  NEW)  THEN 
IF  (NNQ(4)  .NE.  0)  THEN 
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CALL  C0PY(1 ,4, A) 

C***  SET  NUM-LINES  IN  INPUT  SPOOLER  ATRIB  -  JOB'S  NUM-CARDS 

ATRIB(8)  -  A(8 ) 

C***  SCHEDULE  CPU  COMPLETION,  THEN  LOAD  3UFFER  FROM  DISK 

CALL  SCHDL(8,XX( 14), ATRIB) 

RETURN 
END  IF 
END  IF 

C***  IF  BUFFER  IS  FULL 

IF  (XX( 16)  .EQ.  BFULL)  THEN 
C***  SET  ATRIB( 19)  TO  LINE  PRINTER 

ATRIB( 19)  »  OSPLR 

C***  ACQUIRE  CHANNEL  FOR  CARD  READER  PRIOR  TO  PRINTING 
CALL  SCHDL(15,XX(14), ATRIB) 

RETURN 
END  IF 

C***  IF  BUFFER  IS  EMPTY 

IF  (XX( 16)  .EQ.  BEMPT)  THEN 

C***  SCHEDULE  CPU  COMPLETION  THEN  LOAD  BUFFER  FROM  DISK 
CALL  SCHDL(8,XX(14), ATRIB) 

RETURN 
END  IF 

RETURN 

END 


r 


Q************** **************************************  ****** 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  SPOOL  (INPUT  SPOOLER)  * 

C  EVENT  NUMBER:  N/A  * 

C  FUNCTION:  SPOOLS  JOB  ON  TO  DISK  FROM  THE  READER  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  8,  15  * 

C  CALLING  EVENTS:  4  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR :  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C* ************************************************** ******* 


SUBROUTINE  SPOOL 

C0MM0N/SC0M1/  ATRIB(100),DD(100),DDL(100),DTNCJW  ,II,MFA 
1 , MS TOP ,NCLNR , NCRDR , NPRNT, NNRUN, NNSET, NTAPE , SS( 100) 
1,SSL(100),TNEXT,TN0W,XX(100) 

C0MM0N/UC0M1/A( 100) ,  PART(20, 2) ,  TAPE(20,3) 

C0MM0N/UC0M2/DISK(10,7),  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN( 10) , 
1  CCNT(5) ,  CSUM( 5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 
C0MM0N/UC0M4/CARD(6 ) , PRNTR(6) 

PARAMETER  (SPLR-40. O.ON-l.O, OFF-O. 0, NEW-O. 0, BFULL-1 .0.BEMPT-2.0) 

C***  COLLECT  CPU  TIMER  DATA  FOR  H/W  MONITOR 
IF  (XX(30)  .EQ.  ON)  THEN 

IF  (XX(36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNOW)  THEN 

XX( 32)  -  XX(32)  +  XX(37)  -  XX(36) 

XX(36)  -  TNOW 
END  IF 
ELSE 

XX(36)  -  TNOW 
END  IF 

UFIN2  =*  XX(14)  +  TNOW 
IF  (UFIN2  .GE.  XX(37) )  THEN 
XX(37)  -  UFIN2 
END  IF 

END  IF 


C***  IF  START  OF  NEW  JOB  SPOOLING 
IF  (XX(15)  .EQ.  NEW)  THEN 


D-73 


IF  (NNQ(I)  .NE.  0)  THEN 

C***  ACQUIRE  CARD  READER  ??????????? 

CALL  COPY(l,l,A) 

PRINT  *, 'SPOOLING  NEW  JOB' 

PRINT  *, (A(I) , 1=1 ,21) 

C***  SET  NUM-CARDS  IN  INPUT  SPOOLER  ATRIB  -  JOB'S  NUM-CARDS 

ATRIB(7)  »  A(7) 

C***  SET  ATRIB( 19)  TO  CARD  READER 

ATRIBQ9)  »  SPUR 

C***  SCHEDULE  CPU  TIME  OF  CPU  COMPLETION,  THEN  ACQUIRE  CHANNEL 

CALL  SCHDL(15,XX(14), ATRIB) 

RETURN 
END  IF 
END  IF 

C***  IF  BUFFER  IS  FULL 

IF  (XX(L5)  .EQ.  BFULL)  THEN 

C***  SCHEDULE  CPU  COPMLETION  THEN  DO  I/O 
CALL  SCHDL(8,XX( 14), ATRIB) 

RETURN 
END  IF 

C***  IF  BUFFER  IS  EMPTY 

IF  (XX(15)  .EQ.  BEMPT)  THEN 

C***  SET  ATRIB(19)  TO  CARD  READER 
ATRIB( 19 )  -  SPLR 

C***  SCHEDULE  CPU  COMPLETION  THEN  GET  CHANNEL 
CALL  SCHDL(15,XX(14), ATRIB) 

RETURN 
END  IF 

RETURN 

END 
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C* ********************************************* ************ 

c  * 

C  DATE:  5  DEC  1983  * 

C  VERSION:  1.0  * 

C  * 

C  NAME:  SSMON  (START  S/W  MONITOR  TRACE)  * 

C  EVENT  NUMBER:  N/A  * 

C  FUNCTION:  FREES  CPU  AND  STARTS  S/W  MONITOR  TRACE  * 

C  FILES  READ:  NONE.  * 

C  FILES  WRITTEN:  NONE.  * 

C  EVENTS  CALLED:  22  * 

C  CALLING  EVENTS:  4  * 

C  SUBROUTINES  CALLED:  NONE.  * 

C  CALLING  SUBROUTINES:  NONE.  * 

C  * 

C  AUTHOR :  DAVID  L.  OWEN  * 

C  HISTORY:  N/A.  * 

C  * 

C* ********************************** *********************** 

SUBROUTINE  SSMON 

COMMON/ S COM 1/  ATRIB(100),DD(100),DDL(100),DTN0W ,II,MFA 
1 , MSTOP , NCLNR , NCRDR , NPRNT, NNRUN , NNS ET , NTAPE , SS ( 1 00 ) 

1 , S  SL ( 1 00 ) , TNEXT , TNOW , XX ( 100 ) 

PARAMETER  (ON-1.0) 

PRINT  *,'***  START  OF  SOFTWARE  MONITOR  TRACE" 

C***  TURN  S/W  MON  ON  FLAG  TO  ON 
XX(2)  -  ON 

C***  SET  THE  CPU  RATIO  TO  95X  OF  ITS  PRESENT  SPEED 
XX(5)  =■  .95 

C***  FREE  CPU 

CALL  FREE(3, 1) 

C***  SCHEDULE  END  OF  S/W  MONITOR  TRACE 
CALL  SCHDL(22,XX(44)-TN0W  ,ATRIB) 

RETURN 

END 


c******** ******************************************** ****** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATE:  5  DEC  1983 
VERSION:  1.0 

NAME:  USER  (USER  CPU  BURST) 

EVENT  NUMBER:  N/A 

FUNCTION:  PERFORMS  A  TIME  BURST  ON  A  USER  JOB. 
CALCULATES  ENDING  TIME  OF  BURST. 
DETERMINES  WHY  BURST  ENDED  AND  CALLS 
APPROPRIATE  ROUTINE. 

FILES  READ:  NONE. 

FILES  WRITTEN:  NONE. 

EVENTS  CALLED:  7,  8,  9,  10 
CALLING  EVENTS:  4 
SUBROUTINES  CALLED:  NONE. 

CALLING  SUBROUTINES:  NONE. 

AUTHOR:  DAVID  L.  OWEN 
HISTORY:  N/A. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


C* ***************************************** **************** 


SUBROUTINE  USER 

COMMON/SCOM 1 /  ATR IB ( 1 00 ) , DD ( 1 00 ) , DDL ( 1 00 ) , DTNOW  ,  1 1 ,  MFA 
1 , MSTOP , NCLNR , NCRDR , NPRNT , NNRUN , NNS  ET , NTAPE , S  S ( 1 00 ) 
1,SSL(100),TNEXT,TNOW,XX(100) 

COMMON/UCOM1/A(100),  PART(20,2),  TAPE(20,3) 

COMMON/UCOM2/DISK(10,7) ,  DCNT(IO),  DSTRT(IO),  DSUM( 10) ,DFIN(10) , 
1  CCNT(5) ,  CSUM(5) ,  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

PARAMETER  (ON  -  1.0) 


REAL  IOTIM 


C***  CALCULATE  INTERMEDIATE  VARIABLES  I/O-TIME,  TAPE -TIME,  CPU-TIM-LEFT 
C***  JOB -COMPLETE-TIME,  AND  TIME-OUT-TIME 
C**  IOTIM  *  TIME  OF  NEXT  DISK  I/O 

C**  TTIME  -  TIME  OF  NEXT  TAPE  I/O 

C**  CTIME  -  TIME  WHEN  JOB  WOULD  BE  COMPLETED  IF  NO  I/OS  OR  TIMEOUTS 

C**  TIMEO  -  TIME  WHEN  TIME  SLICE  WOULD  BE  OVER 

C**  CTU  -  CPU  TIME  LEFT 

C***  CPU-TIM-USED  -  CPU-TIME-REQUIRED  -  CPU-TIME-LEFT 
C***  THIS  IS  DIFFERENT  FROM  ATRIB(12)  BECAUSE  ATRIB(12)  INCLUDES 
c***  SPOOLER  CPU  TIME  AND  I/O  CPU  TIME 
CTU  -  ATRIB(3)  -  ATRIB(18) 

C***  CHECK  TO  MAKE  SURE  YOU  DON'T  DIVIDE  BY  0  FIRST 
IF  (ATRIB(9)  .N£.  0)  THEN 

C***  I/O-TIME-  TIME-LAST-IO  +  TIME-BETWEEN  -  (ROUND  OFF  ERROR) 
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IOTIM  =  ATRIB( 16)  +  (ATRIB( 3)  /  ATRIB(9) )  -  .0000000001 
ELSE 

IOTIM  =  9999999. 

END  IF 

IF  (ATRIB(IO)  .NE.  0)  THEN 

C***  TAPE -TIME  -  TIME-LAST-TAPE  +  TIME-BETWEEN-TAPE  -  (ROUND  OFF  ERR) 

TTIME  =»  ATRIB(  17 )  +  (AIRIB(3)  /  ATRIB(IO))  -  .0000000001 
ELSE 

TTIME  *  9999999. 

END  IF 

C***  JOB  COMPLETE  TIME  =  TNCW  +  CPU-TIME -LEFT 
CTIME  =  CTU  +  (ATRIB( 18 )  /  XX(5)> 

C***  TIME-OUT-TIME  *  TNOW  +  TIME-SLICE 
TIMEO  =  CTU  +  XX(7) 

C* ***************************************** ********* 

C***  CHECK  FOR  DISK  I/O 

C**  IF  I/O  TIME  LESS  THAN  TAPE,  JOB  COMPLETE  AND  TIME  OUT  THEN 
IF  ((IOTIM  .LE.  TTIME)  .AND.  (IOTIM  .LT.  CTIME )  .AND. 

1  (IOTIM  .LE.  TIMEO))  THEN 

C**  SCHEDULE  TIME  OF  DISK  REQUEST 

CALL  SCHDL  (8, (IOTIM  -  CTU),ATRIB) 

C**  IF  H/W  MON  »  ON,  THEN  COLLECT  TIMER  DATA 

IF  (XX( 30)  .EQ.  ON)  THEN 

IF  (XX' 36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNOW)  THEN 

XX(32)  -  XX(32)  +  XX(37)  -  XX(36) 

XX( 36)  -  TNCW 
END  IF 
ELSE 

XX( 36 )  -  TNCW 
END  IF 

UFIN2  -  (IOTIM  -  CTU)  +  TNCW 
IF  (UFIN2  .GE.  XX(37) )  THEN 
XX(37)  *  UFIN2 
END  IF 

END  IF 

RETURN 
END  IF 

c* *******************************  ************************ 

C***  CHECK  FOR  TAPE  I/O 

IF  ((TTIME  .LE.  CTIME)  .AND.  (TTIME  .LE.  TIMEO))  THEN 
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C**  SCHEDULE  TIME  OF  TAPE  REQUEST 

CALL  SCHDL  (9,(TTIME  -  CTU),ATRIB) 

C**  IF  H/W  MON  -  ON  THEN  COLLECT  TIMER  DATA 

IF  (XX(30)  .EQ.  ON)  THEN 

IF  (XX(36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNCW )  THEN 

XX(32 )  =  XX(32)  +  XX( 37 )  -  XX(36) 

XX(36)  =  TNOW 
END  IF 
ELSE 

XX( 36)  -  TNOW 
END  IF 

UFIN2  -  TTIME  -  CTU  +  TNOW 
IF  (UFIN2  .GE.  XX( 37) )  THEN 
XX(37)  »  UFIN2 
END  IF 

END  IF 

RETURN 
END  IF 

C* ************************************************* ********** 

C***  CHECK  FOR  JOB  COMPLETE 

IF  (CTIME  LE.  TIMEO)  THEN 

PRINT  *, 'USER  JOB  WILL  BE  COMPLETED  WITH  THIS  BURST' 

C***  SCHEDULE  COMPLETION  OF  JOB 

CALL  SCHDL(7 , (ATRIB( 18)  /  XX( 5) ) ,ATRIB) 

C**  IF  H/W  MONITOR  -  ON,  THEN  COLLECT  H/W  MONITOR  DATA 
C**  IF  H/W  MON  -  ON  THEN  COLLECT  TIMER  DATA 

IF  (XX(30)  .EQ.  ON)  THEN 

IF  (XX/36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNOW)  THEN 

XX(32)  -  XX(32)  +XX(37)  -  XX(36) 

XX ( 36 )  -  TNOW 
END  IF 
ELSE 

XX(36)  -  TNOW 
END  IF 

UFIN2  -  (ATRIB( 18 )  /  XX(5))  +  TNOW 
IF  (UFIN2  .GE.  XX( 37) )  THEN 
XX( 37)  -  UFIN2 
END  IF 

END  IF 

RETURN 
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END  IF 


C***************** **************** ** ********** 

C***  TIME  OUT 

C***  IF  IT  IS  NONE  OF  THE  ABOVE  CONDITIONS  IT  MUST  BE  A  TIME-OUT 

C**  SCHEDULE  TIME-OUT 

CALL  SCHDL  ( 10,XX(7 ) ,ATRIB) 

C***  IF  H/W  MON  IS  ON  THEN  COLLECT  CPU  TIMER  DATA 
IF  (XX(30)  .EQ.  ON)  THEN 

IF  (XX(36)  .NE.  -1.0)  THEN 
IF  (XX(37)  .LT.  TNCW)  THEN 

XX(32)  =  XX( 32 )  +  XX(37)  -  XX(36) 

XX(36)  =  TNOW 
END  IF 
ELSE 

XX(36)  »  TNOW 
END  IF 

UFIN2  -  XX( 7 )  +  TNCW 
IF  (UFIN2  .GE.  XX(37))  THEN 
XX(37)  -  UFIN2 
END  IF 

END  IF 

RETURN 


END 
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C** **************  ****************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

DATE:  5  DEC  1983  * 

VERSION:  1.0  * 

* 

NAME:  USERS  (USER  FUNCTI  IN)  * 

EVENT  NUMBER:  N/A  * 

FUNCTION:  CALCULATES  THE  PORTION  OF  THE  CHANNEL  * 
THAT  THE  PARTICULAR  I/O  DEVICES  IS  USING.  * 
FILES  READ:  NONE.  * 

FILES  WRITTEN:  NONE.  * 

EVENTS  CALLED:  NONE.  * 

CALLING  EVENTS:  13,  14,  17  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  NONE.  * 

* 

AUTHOR:  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


FUNCTION  USERF(I) 

COMMON/ S  COM 1 /  VTRI B ( 1 00 ) , DD( 1 00 ) , DDL ( 1 00 ) , DTNOW , 1 1 , MFA 
1 , MS TOP , NCLNR , NCRDR , NPRNT , NNRUN , NNSET , NTAPE , S  S ( 1 00 ) 

1 , SSL ( 100) , TNEXT, TNCW  , XX( 100) 

COMMON /UCOMl/A( 100) ,  PART(20,2),  TAPE(20,3) 

C0MM0N/UC0M2/DISK( 10, 7 ) ,  DCNT(IO),  DSTRT(IO),  DSUM(IO) ,DFIN(10), 
1  CCNT(5),  CSUM(5),  CFIN(5),  CSTRT(5),  RCNT,RSTRT,RFIN,RSUM, 

1  PCNT,  PSTRT,  PFIN,  PSUM 

C0MM0N/UC0M3/TAP( 10,7),  TCNT(IO),  TSTRT(IO),  TSUM( 10) , TF IN( 10) 
C0MM0N/UC0M4 / CAR D ( 6 ) ,  PRNTR(6) 

PARAMETER  (SPL»  -  40.0,  OSPLR  -  41.0) 

C***  IF  IT  IS  A  ...  EE  USING  THE  CHANNEL 

IF  ( (ATRIB( 19 )  .GE.  11.)  .AND.  (ATRI3(19)  . LE .  20.))  THEN 
J  =  ATRIB( 19)  -  10 

C***  CALCULATE  THE  PORTION  OF  THE  CHANNEL  THE  TAPE  IS  USING 
IF  ((J  .GE.  1)  .AND.  (J  .LE.  XX(9)))  THEN 
U SERF  -  NINT( 1  /  TAP(J,6)) 

ELSE 

PRINT  *, 'ERROR  :  ILLEGAL  TAPE' 

PRINT  * , (ATRIB(K) , K”1 , 20) 

END  IF 
RETURN 
END  IF 

C***  IF  IS  A  DISK  USING  THE  CHANNEL 

IF  ( (ATRIB( 19)  .GT.  20.)  .AND.  (ATRIB(19)  .LE.  30.))  THEN 

J  -  ATRIB( 19 )  -  20 
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c*** 


CALCULATE  THE  PORTION  OF  THE  CHANNEL  THE  DISK  IS  USING 
IF  ((J  .GE.  1)  .AND.  (J  .LE.  XX(22)))  THEN 
ITEMP  =  NINT(1  /  DISK( J , 6 ) ) 

USERF  =  ITEMP 
ELSE 

PRINT  *, 'ERROR  :  ILLEGAL  DISK' 

PRINT  *,(AIRIB(K),K=I ,20) 

END  IF 
RETURN 
END  IF 


C***  IF  IS  THE  CARD  READER  USING  THE  CHANNEL 
IF  (ATRIB( 19)  .EQ.  SPLR)  THEN 

C***  CALCULATE  THE  PORTION  OF  THE  CHANNEL  THE  DISK  IS  USING 
ITEMP  =  NINT ( 1  /  (  (:.X(20)/XX(18))  *  60)) 

LSERF  =*  ITEMP 
RETURN 
END  IF 

C***  IF  IS  THE  LINE  PRINTER  USING  THE  CHANNEL 
IF  (ATRIB( 19 )  .EQ.  OSPLR)  THEN 

C***  CALCULATE  THE  PORTION  OF  THE  CHANNEL  THE  DISK  IS  USING 
ITEMP  =  NINT( 1  /  ( (XX(27)/XX(25) )  *  60)) 

USERF  -  ITEMP 
RETURN 
END  IF 

C***  IF  IT  IS  NONE  OF  THE  ABOVE  THEN  THERE  IS  AN  ERROR 

PRINT  *, 'ERROR:  TRYING  TO  ACCESS  CHANNEL  WITH  ILLEGAL  DEVICE' 
PRINT  *,(ATRIB(K),K-1,20) 

RETURN 

END 
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2/4 


flD-A128  116  CPESIM  II  ft  COMPUTER  SVSTEM  SIMULATION  FOR  COMPUTER 
PERFORMANCE  EVALUATION  USE<U>  AIR  FORCE  INST  OF  TECH 
WRIGHT-PATTERSON  AFB  OH  SCHOOL  OF  ENGI.  .  D  L  OMEN 
UNCLASSIFIED  DEC  83  HFIT/GCS/EE/83D-16  F/G  9/2  NL 


********************************************************** 

* 


;  DATE:  5  DEC  1983  * 

;  VERSION:  1.0  * 

* 

;  NAME:  SIMS  * 

;  FUNCTION:  PERFORMS  NETWORK  PORTION  OF  CPESIM  II  * 

;  FILES  READ:  NONE.  * 

;  FILES  WRITTEN:  NONE.  * 

;  NETWORKS:  MAIN  JOB  FLOW,  OUTPUT  SPOOLER,  DISK,  * 

;  AND  CHANNEL  NETWORKS  * 

* 

;  AUTHOR:  DAVID  L.  OWEN  * 

;  HISTORY:  N/A.  * 

* 

t 

. ******* ************** ************************************* 
f 

GEN, DAVID  L.  OWEN, ABC  COMPUTER  SIMULATION, 12/05/83; 

LIMITS, 40,24,300; 

PRIORITY/3,HVF(ll)/2,LVF(5); 

NETWORK; 

RESOUR CE/INQ(1),1;  INPUT  QUEUE 

RES0URCE/H0LDQ(1 ) ,2 ;  HOLD  QUEUE 
RESOUR CE/EXECQ( 1 ) , 3 ;  EXECUTE  QUEUE 

RESOUR CE/0UTQ(1), 4;  OUTPUT  QUEUE 

RESOUR CE/DUM1(1), 5;  DUMMY  1  QUEUE 

RESOUR CE/DUM2(1), 6;  DUMMY  2  QUEUE 

RES0URCE/DUM3 ( 1 ) , 7 ;  DUMMY  3  QUEUE 

RESOUR CE/DUM4(1), 8;  DUMMY  4  QUEUE 

RESOUR CE/DUM5(1), 9;  DUMMY  5  QUEUE 

RESOUR CE/DUM6(1), 10;  DUMMY  6  QUEUE 

RESOUR CE/TPQ1 (1) , 11 ;  TAPE  1  QUEUE 

RESOUR CE/TPQ2 ( 1 ) , 12 ;  TAPE  2  QUEUE 

RES0URCE/TPQ3(1) , 13;  TAPE  3  QUEUE 

RESOUR CE/TPQ4(1), 14;  TAPE  4  QUEUE 

RES0URCE/TPQ5(1 ) ,15;  TAPE  5  QUEUE 

RESOUR CE/TPQ6( 1 ) , 16 ;  TAPE  6  QUEUE 

RES0URCE/TPQ7(1), 17;  TAPE  7  QUEUE 

RES0URCE/TPQ8(1) , 18;  TAPE  8  QUEUE 

RESOUR CE/TPQ9 ( 1 ) , 19 ;  TAPE  9  QUEUE 

RESOURCE/TPQ10( 1 ) , 20;  TAPE  10  QUEUE 
RESOUR CE/DSQ1(1), 21;  DISK  1  QUEUE 

RESOUR CE/DSQ2(1), 22;  DISK  2  QUEUE 

RES0URCE/DSQ3( 1 ) , 23 ;  DISK  3  QUEUE 

RES0URCE/DSQ4( 1 ) , 24 ;  DISK  4  QUEUE 

RESOURCE/DSQ5(l),25;  DISK  5  QUEUE 

RESOUR CE/DSQ6(1), 26;  DISK  6  QUEUE 

RES0URCE/DSQ7 (1 ) ,27 ;  DISK  7  QUEUE 

RESOUR CE/DSQ8(1), 28;  DISK  8  QUEUE 

RES0URCE/DSQ9(1) ,29;  DISK  9  QUEUE 

RES0URCE/DSQ10(1) ,30;  DISK  10  QUEUE 

RESOURCE/ CNLQ1 (0) , 31 ;  CHANNEL  1  QUEUE 
RESOUR CE/CNLQ2(0), 32;  CHANNEL  2  QUEUE 


RESOW CE/CNLQ3(0), 33;  CHANNEL  3  QUEUE 
RES0URCE/CNLQ4(0) , 34;  CHANNEL  4  QUEUE 
RESOUR CE/CNLQ5(0) ,  35;  CHANNEL  5  Q'JEUE 


ATTRIBUTES 

ATRIB(l)  ARRIVAL  TIME 

ATRIB(2)  JOB  NAME 

ATRIB(3)  CPU  TIME  REQUIRED 

ATRIB(4)  MEMORY 

ATRIB(5)  PRIORITY 

ATRIB(6)  ALLOCATABLE  DEVICES  NEEDED 

ATRIB(7)  CARDS 

ATRIB(8)  LINES 

ATRIB(9)  DISK  BLOCKS 

ATRIB(IO)  ALLOCATABLE  DEVICE  BLOCKS 

ATRIB(ll)  JOB-TYPE  1.  USER  JOB 

2.  INPUT  SPOOLER 

3.  OUTPUT  SPOOLER 

4.  S/W  MONITOR 

5.  JOB  SCHEDULER 

ATRIB( 12)  CPU  TIME  USED 

ATRIB( 13)  I/O  TIME  USED 

ATRIB(14)  ME ME  CRY  SIZE  USED 

AIRIB( 15)  DEPARTURE  TIME 

ATRIB(  16)  TIME  OF  LAST  I/O 

ATRIB(I7)  TIME  OF  LAST  TAPE  I/O 

ATRIB( 18)  CPU  TIME  LEFT 

ATRIB( 19)  ASSIGNED  DISK 

ATRIB(20)  ASSIGNED  CHANNEL 

ATRIB(21)  QUEUE  NAME  (USED  WITH  S/W  MONITOR) 

ATRIB(22)  TIME  (TIME  JOB  ENTERED  QUEUE) 

ATRIB(23)  INPUT-FROM  (WHERE  JOB  CAME  FROM  PR ICR  TO  QUEUE) 
ATRIB(24)  OUTPUT-TO  (WHERE  JOB  WILL  GO  AFTER  QUEUE) 


XX  VARIABLES 

XX(I)  -  SPOOLERON  (INPUT  SPOOLER  IN  SYSTEM) 

XX(2)  -  SWMON  FLAG 

XX(3)  -  NUMBER  OF  MEMORY  PARTITIONS 

XX(4)  -  CPU  START  TIME 

XX(5)  -  CPU  RATIO  FOR  S/W  MON  (1.0  -  S/W  MON  OFF,  .95  -  S/W  MON 
XX(6)  -  RELATIVE  CPU  SPEED 
XX(7)  -  TIME  SLICE 
XX(8)  -  START  I/O 


XX(9)  -  NUMBER  OF  TAPE  DRIVES 

XX(10)  -  NUMBER  OF  AVAILABLE  TAPE  DRIVES 

XX(I1)  -  JOB  SCHEDULER  IN  EXECQ  (0  -  TRUE,  1  -  FALSE) 

XX( 12)  -  OSPOOLERON  (OUTPUT  SOOLER  IN  SYSTEM) 

XX(13)  -  CPU  TIME  REQUIRED  FOR  JOB  SCHEDULER  TO  EXECUTE 
XX(14)  -  CPU  TIME  FOR  INPUT  SPOOLER  TO  EXECUTE 
XX(15)  -  INPUT  SPOOLER  STATUS  (0  -START  OF  JOB, 

1  -  WRITE  BUFFER  TO  DISK,  2  -  READ  CARDS  INTO  BUFFER) 
XX(I6)  -  OUTPUT  SPOOLER  STATUS  (0  -START  OF  JOB, 

1  -  PRINT  BUFFER,  2  -  LOAD  BUFFER  FROM  DISK) 

XX(17)  -  BLOCK  SIZE  (BYTES) 

XX(I8)  -  CARD  READER  SPEED  (CARDS  PER  MINUTE) 

XX(19)  -  CARD  RECORD  SIZE  (BYTES) 

XX(20)  *  CARD  PER  BUFFER  (CALCULATED  FROM  XX(17)  AND  XX(I9)  ) 

XX(21)  -  NEXT  DISK 
XX(22)  -  NUMBER  OF  DISK  DRIVES 
XX(23)  -  NUMBER  OF  CHANNELS 
XX(24)  -  NEXT  TAPE 

XX(25)  -  PRINTER  SPEED  (LINES  PER  MINUTE) 

XX(26)  -  LINE  RECORD  SIZE  (BYTES) 

XX(27)  -  LINES  PER  BUFFER  (CALCULATED  FROM  XX(17)  AND  XX(26) 

XX(30)  -  H/W  MONITOR  (0  -  OFF,  1  -  ON) 

XX(31)  »  CPU  COUNT  FOR  H/W  MON 

XX(32)  -  CPU  TIMER  FOR  H/W  MON 

XX(33)  -  H/W  MONITOR  START  TIME 

XX(34)  »  H/W  MONITOR  STOP  TIME 

XX(35)  -  HOW  OFTEN  H/W  MONITOR  RECORDS  DATA 

XX(36)  =■  CPU  START  TIME  FOR  H/W  MON 

XX(37)  -  CPU  FINISH  TIME  FOR  H/W  MON 

XX(40)  -  TOTAL  CPU  TIME  USED  BY  THE  INPUT  SPOOLER 
XX(41)  -  TOTAL  CPU  TIME  USED  BY  THE  OUTPUT  SPOOLER 
XX(42)  -  TOTAL  CPU  TIME  USED  BY  THE  JOB  SCHEDULER 
XX(43)  -  S/W  MONITOR  START  TIME 
XX(44)  -  S/W  MONITOR  STOP  TIME 


BEGIN  NETWORK 


ENTER, I;  JOB  ARRIVAL,  ASSIGN  ATTRIBUTES 

GOON, 2; 

ACT/1,0. , ,GON2;  PUT  JOB  IN  INPUT  QUEUE 

ACT/2, 0,XX(1).NE. I, SPO;  SPOOLER  IDLE,  PUT  IN  HOLD  QUEUE 
SPO  ASSIGN,XX(1)-1;  FLAG  INDICATING  SPOOLER  LOADED 

ACT; 

EVENT, 2;  LOAD  SPOOLER  IN  HOLD  QUEUE 

TERM; 


G0N2  GOON , 1 ; 

ACT/3, 0,XX(2).NE.1,QINP; 
ACT/4, 0,XX(2).EQ.l; 
ASSIGN, ATRIB(21)-1.0; 
ASSIGN, ATRIB(22)“TNCW ; 
ASSIGN, ATRIB(23)«0.0; 
ASSIGN, ATRIB(24)-2.0; 
ACT; 

QINP  AWAIT(l) , INQ/1 , 1 ; 


ACT/5, 0,XX(2).NE.1,JT; 
ACT/6, 0,XX(2).EQ.l; 

EVENT, 23; 

JT  ASSIGN,ATRIB(11)*1; 

ASSIGN, ATRIB(23)-1.0; 
ACT/7,0, ,GON3; 

ENTER , 2 ; 

ASSIGN,ATRIB(23)“5.0; 
ACT/8, O.O..GON3; 

ENTER, 7; 

ASSIGN, ATRIB(23)“6 .0; 
ACT/9,0, ,GON3; 

ENTER, 21; 

ASSIGN, ATRIB(23)“7 .0; 

GON3  GOON.l; 

ACT/10, 0,XX(2).NE.1,G0N4; 
ACT/11, 0,XX(2).EQ.l; 
ASSIGN, AIR IB( 2 l)-2.0; 
ASSIGN ,ATRIB(22)-TN0W ; 
ASSIGN,ATRIB(24)-3.0; 

ACT; 

GON4  GOON; 

ACT/22, 0.,,QHLD; 

ACT/23, 0.,XX(11).NE.1,ET5; 
:T5  EVENT,  5; 

TERM; 

QHLD  AWAIT(2) .HOLDQ/l , 1 ; 

TERM; 


LOAD  JOB  IMED LATELY  INTO  INPUT  QUEUE 
STORE  DATA  FOR  S/W  MONITOR 


TRANSFER  JOB  TO  HOLD  QUEUE 


RECORD  DATA  ON  S/W  MON  FILE 

SET  JOB  TYPE  TO  USER  JOB 

SET  'INPUT  FROM'  TO  INPUT  QUEUE 

INPUT  SPOOLER 

SET  'INPUT  FROM'  TO  INPUT  SPOOLER 
OUTPUT  SPOOLER 

SET  'INPUT  FROM'  TO  OUTPUT  SPOOLER 
S/W  MONITOR 

SET  'INPUT  FROM'  TO  S/W  MONITOR 


IF  S/W  MON  NOT  ON,  GO  TO  GON4 
IF  S/W  MON  ON,  STORE  DATA  FIRST 


IF  JSCHED  NOT  LOADED  IN  EXECQ 
THEN  LOAD  JOB  SCHED 


WAIT  IN  HOLD  QUEUE 


WAIT  IN  INPUT  QUEUE 


QUEUE(5); 
ACT/78, 0.0; 
GOON.l; 


DUMMY  QUEUE  SO  THAT  CAN  RECORD 
S/W  MONITOR  DATA  BEFORE  GOING  TO 
EXECUTE  QUEUE 


ASSIGN, ATRIB(23)-2.0; 


SET  'INPUT  FROM'  TO  HOLD  QUEUE 
IF  S/W  MON  NOT  ON  THEN  GO  STAIGHT 


ACT/12,0,XX(2 ) .NE. 1 ,G0N5;  TO  THE  GOON  NODE 
ACT/13, 0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  DATA  TO  DISK  AND  GO  TO  GOON  NODE 

ACT/14,0, ,GON5; 

ENTER, 4;  RETURN  OF  JOB  AFTER  TIMEOUT 

ASSIGN,ATRIB(23)«3.0;  SET  'INPUT  FROM'  TO  EXEC  QUEUE 

ACT/15, 0,,GON5; 

ENTER, 3;  RETURN  OF  JOB  AFTER  DISK  I/O 

ASSIGN, ATRIB(23)"ATRIB( 20) +30;  SET  'INPUT  FROM'  TO  THE  CHANNEL 
ACT/16,0, ,GON5; 

ENTER, 18;  INSERTION  OF  JOB  SCHEDULER 

ASSIGN, ATRIB(23)-8.0;  SET  'INPUT  FROM'  TO  JOB  SCHEDULER 

ACT/17,0, ,GON5; 

ENTER, 5;  RETURN  OF  JOB  AFTER  TAPE  I/O 

ASSIGN, ATRIB(23)*ATRIB( 2 0)+30;  SET  'INPUT  FROM'  TO  INPUT  QUEUE 
GON5  GOON,l; 


ACT/18, 0,XX(2).NE.1,QEXC;  IF  S/W  MON  NOT  ON  THEN  PUT 

JOB  INTO  QEXEC 


ACT/19, 0,XX(2).EQ.l; 
ASSIGN, ATRIB(21)a3.0; 
ASSIGN ,ATRIB( 22 )«TN0W ; 
ASSIGN, ATR IB ( 24 )“36.0; 
ACT; 

QEXC  AWAIT(3) .EXECQ/l , 1 ; 

ACT/20, 0,XX(2).NE.1,ET4; 
ACT/21, 0,XX(2).EQ.l; 
EVENT, 23; 

ACT; 


IF  S/W  MON  ON  THEN 


WAIT  IN  EXECUTE  QUEUE  FOR  CPU 
IF  S/W  MON  NOT  ON  THEN  GO  TO  ET4 
IF  S/W  MON  ON  THEN 
WRITE  S/W  MON  DATA  TO  DISK  BEFORE 
GOING  TO  ET4 


ET4  EVENT, 4; 
TERM; 


PERFORM  CPU  BURST 


** **** ** ********* *** * AAA** ** ** * ** ** AAA****** 


OUTPUT  SPOOLER  NETWORK 


********  ************************************ 


ENTER, 10; 
ACT/24; 


ENTER  USER  JOB  AFTER  COMPLETION 


GON6  GOON; 

ACT/25,0, ,GON7; 
ACT/26, 0,XX(l2).NE.l; 
EVE NT, 6; 

TERM; 


PUT  JOB  INTO  OUTPUT  QUEUE 
OUTPUT  SPOLER  NOT  IN  SYSTEM  SO 
LOAD  SPOOLER 


GON7  GOON, 1 ; 

ACT/27,0. ,XX(2).NE.l,QOUT;  S/W  MON  NOT  ON 

ACT/ 28,0. ,XX(2).EQ.l;  S/W  MON  ON  SO  RECORD  DAIA  IN  ATRIB 

ASSIGN, ATRIB(21)-4.0; 


v.'.vw 
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ASSIGN, ATRIB(22)-TN(JW ; 
ASSIGN, ATRIB(23)-36.0; 
ASSIGN, ATRIB(24)«9.0; 
ACT/29; 

’qOUT  AWAIT(4),OUTQ/l; 

ACT,0,XX(2).NE.I,ETI9; 
ACT,0,XX(2).EQ.l; 
EVENT, 23; 

ACT/30; 

*ET19  EVENT, 19; 


IF  S/W  MON  NOT  ON  THEN  GO  TO  ET19 
IF  S/tt  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK  BEFORE 
GOING  TO  ET19 


TERM; 

************  ***  ***  ***************  *  A  ********  * 


DISK  NETWORKS 


******************************************** 


ENTER, 23,1; 

ACT/80,0. ,XX(2).NE.l,GON8; 
ACT/81,0. ,XX(2).EQ.l; 
ASSIGN, ATRIB(21)“ATRIB(19) ; 
ASSIGN, ATR IB ( 22 )-TN0W  ; 
ASSIGN, ATRIB( 23 )“3 6.0; 
ASSIGN, ATR IB( 24 )“37.0; 


IF  S/W  MON  NOT  ON  GO  TO  G0N8 
IF  S/W  MON  ON  THEN  RECORD  ATRIBUTES 
DISK  WAITING  FOR 

CPU 

GENERAL  CHANNEL 

DECIDE  WHICH  DISK  TO  GO  TO 


G0N8  G00N,1; 

ACT(1)/31,0.0,ATRIB(19).EQ.21,DK1; 

ACT(1)/32,0.0,ATRIB(19).EQ.22,DK2; 

ACT(1)/33,0.0,ATRIB( 19) .EQ.23,DK3; 

ACT(1)/34,0.0,ATRIB(19).EQ.24,DK4; 

ACT(1)/35,0.0,ATRIB(19).EQ.25,DK5; 

ACT(1)/36,0.0,ATRIB(19).EQ.26,DK6; 

ACT(1)/37,0.0,ATRIB(19).EQ.27,DK7; 

ACT(1)/38,0.0,ATRIB(19).EQ.28,DK8; 

ACT(1)/39,0.0,ATRIB(19).EQ.29,DK9; 

ACT(1)/40,0.0,ATRIB(19).EQ.30,DK10; 

ACT(1)/41,0.0,,ERR1; 


DK1  AWAIT(21),DSQ1/1; 

ACT, 0,XX(2 ) .NE. 1,D1; 
ACT,0,XX(2) .EQ.l; 
EVENT, 23; 

ACT/ 42; 

D1  EVENT, 15; 

ACT/43; 

TERM; 

DK2  AWAIT(22) ,DSQ2/1 ; 

ACT,0,XX(2).NE.1,D2; 
ACT, 0,XX(2). EQ.l; 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D1 
IF  S/W  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK  BEFORE 
GOING  TO  D1 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D2 
IF  S/W  MON  ON  THEN 
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EVENT, 23; 

ACT/44; 

D2  EVENT, 15; 

ACT/ 45; 

TERM; 

DK3  AWAIT(23) ,DSQ3/1 ; 

ACT,0,XX(2).NE.1,D3; 
ACT, 0,XX(2 ) .EQ. 1 ; 
EVENT, 23; 

ACT/46; 

03  EVENT, 15; 

ACT/47; 

TERM; 

DK4  AWAIT(24) ,DSQ4/1 ; 

ACT,0,XX(2).NE.1,D4; 
ACT,0,XX(2).EQ.l; 
EVENT, 23; 

ACT/ 48; 

D4  EVENT, 15; 

ACT/ 49; 

TERM; 

DK5  AWAIT(25) ,DSQ5/1 ; 

ACT,0,XX(2).NE.1,D5; 
ACT,0,XX(2).EQ.l; 
EVENT, 23; 

ACT/ 49; 

D5  EVENT, 15; 

ACT/ 50; 

TERM; 

DK6  AWAIT(26) ,DSQ6/1; 

ACT,0,XX(2) .NE. 1 ,D6; 
ACT, 0 , XX ( 2 ) .  EQ . 1 ; 
EVENT, 23; 

ACT/51; 

D6  EVENT, 15; 

ACT/ 52; 

TERM; 

DK7  AWAIT(27),DSQ7/1; 

ACT, 0,XX(2) .NE. 1 ,D7 ; 
ACT,0,XX(2).EQ.l; 
EVENT, 23; 

ACT/ 53; 

D7  EVENT, 15; 

ACT/ 54; 

TERM; 

DK8  AWAIT(28) ,DSQ8/1 ; 

ACT ,0,XX(2).NE.1,D8; 


WRITE  S/W  MON  DATA  TO  DISK  BEFORE 
GOING  TO  02 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D3 
IF  S/W  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D4 
IF  S/W  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D5 
IF  S/W  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D6 
IF  S/W  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D7 
IF  S/W  MON  ON  THEN 

WRITE  S/W  MON  DATA  TO  DISK 


IF  S/W  MON  NOT  ON  THEN  GO  TO  D8 
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ACT,0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/55; 

D8  EVENT, 15; 

ACT/ 56; 

TERM; 

> 

DK9  AWAIT(29),DSQ9/1; 

ACT, 0,XX(2) .NE. 1,D9;  IF  S/W  MON  NOT  ON  THEN  GO  TO  D9 
ACT,0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/ 57; 

D9  EVENT, 15; 

ACT/ 58; 

TERM; 

DKIO  AWAIT(30) .DSQlO/l ; 

ACT,0,XX(2).NE.1,D10;  IF  S/W  MON  NOT  ON  THEN  GO  TO  DIO 

ACT,0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/60; 

DIO  EVENT, 15; 

ACT/61; 

TERM; 

> 

ERR1  TERM;  ERROR  ROUTINE  TO  GO  HERE 

•  ******************************************** 

.*** 

;***  CHANNEL  NETWORKS 
•  *** 

•  ******************************************** 

ENTER, 25,1; 

ACT/82, 0.,XX(2).NE.1,GON9;  IF  S/W  MON  NOT  ON  GO  TO  GON9 
ACT/83,0. ,XX( 2). EQ.l;  IF  S/W  MON  ON  THEN  LOAD  ATRIBUTES 

ASSIGN, ATRIB(21)-ATRIB(20)+30;  CHANEL  WAITING  FOR 
ASSIGN, ATRIB(22)*TNCW ; 

ASSIGN,AIRIB(23)-ATRIB(19);  I/O  DEVICE 
ASSIGN, ATRIB(24)-3.0;  EXEC  QUEUE 

;  DECIDE  WHICH  CHANNEL  TO  GO  TO 

GON9  GOON.l; 

ACT(1)/62,0.0,ATRIB(20). EQ.l, CHI; 
ACT(1)/63,0.0,ATRIB(20).EQ.2,CH2; 
ACT(1)/64,0.0,ATRIB(20).EQ.3,CH3; 
ACT(1)/65,0.0,ATRIB(20).EQ.4,CH4; 
ACT(1)/66,0.0,ATRIB(20).EQ.5,CH5; 

ACT(l)/67,0.0, ,ERR2; 

*CH1  AWAIT(31) ,CNLQl/USERF( 1) ; 

ACT,0,XX(2).NE.i,Cl;  IF  S/W  MON  NOT  ON  THEN  GO  TO  Cl 

ACT, 0,XX(2). EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 


ACT/68; 

Cl  EVENT, 16; 

ACT/69; 

TERM; 

*CH2  AWAIT(32),CNLQ2/USERF(1); 

ACT,0,XX(2).NE. 1,C2;  IF  S/W  MON  NOT  ON  THEN  GO  TO  C2 
ACT, 0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/ 70; 

C2  EVENT, 16; 

ACT/71; 

TERM; 

*CH3  AWAIT(33),CNLQ3/USERF(1 ) ; 

ACT,0,XX(2) . NE. 1 ,C3;  IF  S/W  MON  NOT  ON  THEN  GO  TO  C3 

ACT , 0 , XX( 2 ) .  £Q . 1 ;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/ 72; 

C3  EVENT, 16; 

ACT/73; 

TERM; 

• 

CH4  AWAIT(34),CNLQ4/USERF( 1); 

ACT, 0,XX(2 ) .NE. 1 ,C4;  IF  S/W  MON  NOT  ON  THEN  GO  TO  C4 
ACT,0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/ 74; 

C4  EVENT, 16; 

ACT/ 75; 

TERM; 

CH5  AWAIT(35),CNLQ5/USERF(1); 

ACT, 0,XX(2 ) .NE. 1,C5;  IF  S/W  MON  NOT  ON  THEN  GO  TO  C5 
ACT,0,XX(2).EQ.l;  IF  S/W  MON  ON  THEN 

EVENT, 23;  WRITE  S/W  MON  DATA  TO  DISK 

ACT/ 76; 

C5  EVENT, 16; 

ACT/77; 

TERM; 

ERR2  TERM;  ERROR  ROUTINE  TO  GO  HERE 

END; 

INIT, 0,600000; 

MONTR,CLERA , 20. ,20.0; 

FIN; 


c 

C  DATE:  5  DEC  1983 

C  VERSION:  1.0 

C 


* 

* 

* 

* 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME :  SETUP  * 

FUNCTION:  READS  IN  AVAILABLE  HARDWARE  EQUIPMENT  * 

LIST,  QUERIES  USER  ON  CONFIGURATION  * 

DESIRED  AND  THEN  WRITES  CONFIG  FILE  * 

FILES  READ:  TYPES  * 

FILES  WRITTEN:  CONFIG  * 

SUBROUTINES  CALLED:  NONE.  * 

CALLING  SUBROUTINES:  NONE.  * 

* 

AUTHOR :  DAVID  L.  OWEN  * 

HISTORY:  N/A.  * 

* 


C********************** ************************************ 


PROGRAM  MAIN(TYPES, CONFIG) 

DIMENSION  DSPEED(IO) ,DC0ST(10) ,TSPEED(10) ,TCOST( 10) , 

1  CSPEED(5) ,CC0ST(5) ,RSPEED(5) ,RC0ST(5) , PC0ST(5) ,PSPEED(5) , 
1  USPEED(5) , UCOST( 5 ) , PART(20) , ICHANL(5) , IDISK( 10,6), 

1  ITAPE(10,6),IREAD(6),IPRINT(6),ISWMQ(5),I»JCNT(5) 
CHARACTER  DNAME( 10)*20,  TNAME(10)*20,  CNAME(5)*20, 

1  RNAME(5)*20,  PNAME(5)*20,  UNAME(5)*20,SANSWR*1  ,HANSWR*1 

REAL  HSEC 

PRINT  *, 'OPENING  FILES' 


C***  OPEN  INPUT  FILE  WHICH  CONTAINS  THE  TYPES  OF  DEVICES 

0PEN(UNIT-1 5 , FILE-'TYPES' , STATUS- 'OLD' , ERR-990 , IOSTAT-IOS , 

1  ACCESS-'SEQUENTIAL', FORM- 'FORMATTED') 

C***  OPEN  CONFIG  FILE  WHICH  WILL  CONTAIN  THE  COMPUTER  CONFIGURATION 
OPEN( UNIT-1 1 , FILE -'CONFIG' , STATUS-'NEW ' .ERR-990, 

1  IOSTAT-IOS, ACCESS -'SEQUENTIAL' .FORM- 'FORMATTED') 

PRINT  *, 'FILES  OPENED' 

C***  READ  NUMBER  OF  DIFFERENT  TYPES  OF  DISKS 
READ ( UNIT- 1 5 , FMT- 1 00 , ERR -99 9 ) NUMD 

C***  READ  DISK  TYPES  IN 
DO  1  I-l.NUMD 

READ  (UNIT-15 , FMT-101 , ERR-999 )DNAME(I ) , DSPEED( I ) , DCOST( I ) 

1  CONTINUE 

C***  READ  NUMBER  OF  DIFFERENT  TYPES  OF  TAPE  Ml  IVES 
READ(UNIT-1 5, FMT-100, ERR-999)NUMT 
C***  READ  TAPE  TYPES 


DO  2  I-l.NUMT 

READ  (UNIT-1 5, FMT-1 01 , IOSTAT-IOS , ERR-999) 

1  TNAME(I) ,TSPEED(I) ,TCOST(I) 

2  CONTINUE 

C***  READ  NUMBER  OF  DIFFERENT  TYPES  OF  CHANNELS 

READ  (UNIT-1 5 , FMT-1 00, ERR -9 99 , IOSTAT-IOS )NUMC 
C***  READ  CHANNEL  TYPES 
DO  3  I-l.NUMC 

READ  (UNIT-15, FMT-101, ERR-999, IOSTAT-IOS )CNAME(I), 
1  CSPEED(I) ,CCOST(I) 

3  CONTINUE 

C***  READ  NUMBER  OF  DIFFERENT  TYPES  OF  CARD  READERS 
READ  (UNIT-1 5, FMT-1 00, ERR -9 99 , IOSTAT-IOS )NUMR 
C***  READ  CARD  READER  TYPES 
DO  4  I-l.NUMR 

READ  (UNIT-1 5 , FMT-1 01 , ERR-999 , IOSTAT-IOS )RNAME (I) , 
1  RSPEED(I) ,RCOST(I) 

4  CONTINUE 

C***  READ  NUMBER  OF  DIFFERENT  TYPES  OF  LINE  PRINTERS 
READ  (UNIT-15, FMT-100, ERR-999, IOSTAT-IOS)NUMP 
C***  READ  PRINTER  TYPES 
DO  5  I-l.NUMP 

READ  (UNIT-1 5, FMT-101, ERR-999, IOSTAT-IOS )PNAME( I) , 
1  PSPEED(I) ,PCOST(I) 

5  CONTINUE 

C***  READ  NUMBER  OF  DIFFERENT  TYPES  OF  CPUS 

READ  (UNIT-15, FMT-100, ERR-999, IOSTAT-IOS )NUMU 
C***  READ  CPUS  TYPES 

DO  6  I-l.NUMU 

READ  (UNIT-15, FMT-101, ERR-999, IOSTAT-IOS)UNAME(I), 
1  USPEED(I) , UCOST(I) 

6  CONTINUE 

PRINT  ' 

PRINT  ' 

C***************************************************** 

c***  CPU  s  *** 

c ***************************************************** 

c***  QUERY  USER  ON  TYPE  OF  CPUS 

7  PRINT  *,  "WHICH  TYPE  OF  CPU  WOULD  YOU  LIKE' 

DO  8  I-l.NUMU 

PRINT  *,I,'.  ' ,UNAME(I) ,'  SPEED  -  '.USPEED(I), 

1  '  COST  -  $' ,UCOST(I) 

8  CONTINUE 

PRINT  ' 

PRINT  *, 'ENTER  TYPE  (1,2,..) 

READ  *,ICPU 
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Ip  ((ICPU  .LT.  1)  .OR.  (ICPU  .GT.  NUMU))  THEN 
PRINT  *, 'ILLEGAL  CPU  TYPE' 

GOTO  7 
END  IF 
PRINT  ' 


C***  QUERY  USER  ON  NUMBER  OF  CPUS 

55  PRINT  *, 'ENTER  NUMBER  OF  CPUS  DESIRED  (MAX  99):  ' 

READ  *, NCPUS 

IF  ((NCPUS  .GT.  99)  .OR.  (NCPUS  .LT.  1))  THEN 
PRINT  *, 'ILLEGAL  NUMBER  OF  CPUS' 

GO  TO  55 
END  IF 

PRINT  ' 

C***  QUERY  USER  ON  TIME  SLICE 

56  PRINT  ENTER  TIME  SLICE  (IN  SECONDS):  ' 

READ  *, TSLICE 

IF  ( (TSLICE  .LT  .0001)  .OR.  (TSLICE  .GT.  99999.))  THEN 
PRINT  *, 'TIME  SLICE  RANGE  .0001  TO  99999.  SECONDS' 

GOTO  56 
END  IF 

PRINT  ' 

PRINT  ' 

Q* ****** A A AAA *************** ************* 

C***  MEMORY  PARTITIONS  *** 

C***************************************** 

C***  QUERY  USER  ON  NUMBER  OF  MEMORY  PARTITIONS 

9  PRINT  *, 'ENTER  NUMBER  OF  MEMORY  PARTITIONS  DESIRED  (MAX  20)  ' 
READ  * , NPARTS 

IF  ((NPARTS  .GT.  20)  .OR.  (NPARTS  .LE.  0))  THEN 
PRINT  *, 'ILLEGAL  NUMBER  OF  MEMORY  PARTITIONS' 

GOTO  9 
END  IF 
PRINT  ' 

C***  QUERY  USER  ON  SIZE  OF  MEMORY  PARTITIONS 
PRINT  *, 'ENTER  PARTITION  SIZES  IN  K' 

DO  10  I -1, NPARTS 

PRINT  *, 'PARTITION ', I,')  SIZE  (IN  K)  :  ' 

READ  *,PART(I) 

PRINT  ' 

10  CONTINUE 

PRINT  ' 

PRINT  ' 

£*  ***  *  ******  ***********  *******  **  ********************** 

C***  CHANNELS  *** 

C******* ***************** ****** *********************** 
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C***  QUERY  USER  ON  NUMBER  OF  CHANNELS 

14  PRINT  *, 'ENTER  NUMBER  OF  CHANNELS  DESIRED  (MAX  5) 
READ  *,NCHAN 

IF  ( (NCHAN  .LE.  0)  .OR.  (NCHAN  .GT.  5))  THEN 
PRINT  *, 'ILLEGAL  NUMBER  OF  CHANNELS' 

GO  TO  14 
END  IF 

DO  13  K-l, NCHAN 
PRINT  *,'  ' 

C***  QUERY  USER  ON  TYPE  OF  CHANNELS 

11  PRINT  *, 'WHICH  TYPE  WOULD  YOU  LIKE  FOR  CHANNEL(' , K, ' ) 

DO  12  I-l.NUMC 

PRINT  *,!»'•  ' , CNAME( I) , '  DATA  RATE  -  ', 

1  CSPEED(I) , '  COST  =$',CCOST(I) 

12  CONTINUE 

PRINT  *, 'ENTER  TYPE  (1,2,..)' 

READ  *, ICHAN 

IF  ((ICHAN  .LT.  1)  .OR.  (ICHAN  .GT.  NUMC))  THEN 
PRINT  *, 'ILLEGAL  CHANNEL  TYPE' 

GOTO  11 
END  IF 

ICHANL(K)  -  ICHAN 

13  CONTINUE 

PRINT  *,'  ' 

PRINT  *,'  ' 

C** **************** *********** ************************ 

C***  DISKS  *** 

Q*  ********************************* ******************* 

C***  QUERY  USER  ON  NUMBER  OF  DISKS 

15  PRINT  *, 'ENTER  NUMBER  OF  DISKS/DRUMS  DESIRED  (MAX  10) 
READ  *, NDISK 

IF  ( (NDISK  .LE.  0)  .OR.  (NDISK  .GT.  10))  THEN 
PRINT  *, 'ILLEGAL  NUMBER  OF  DISKS' 

GO  TO  15 
END  IF 

DO  20  K-l, NDISK 
PRINT  *,'  ' 

C***  QUERY  USER  ON  TYPE  OF  DISKS 

16  PRINT  *, 'WHICH  TYPE  OF  DISK  WOULD  YOU  LIKE' 

DO  17  1*1 , NUMD 

PRINT  *,I,'.  ' , DNAME ( I )  , '  SPEED  *  ',DSPEED(I), 

1  '  COST  -  $' , DCOST( I ) 

17  CONTINUE 
PRINT  *,'  ' 


PRINT  *, 'ENTER  TYPE  (1,2,..)  FOR  DISK  ',K,':  ' 
READ  *,IDSK 

IF  ((IDSK  .LT.  1)  .OR.  ( IDSK  .GT.  NUMD) )  THEN 
PRINT  *, 'ILLEGAL  DISK  TYPE' 

GOTO  16 
END  IF 

IDISK(K,6)  -  IDSK 

c***  GET  CHANNEL  CONNECTIONS 

PRINT  *, 'ENTER  CHANNEL  CONNECTIONS  FOR  DISK  ',K 
PRINT  0  -  CHANNEL  NOT  CONNECTED  TO  DISK' 

PRINT  *,'  1  -  CHANNEL  CONNECTED  TO  DISK' 

PRINT  ' 

DO  19  J-1,5 

IF  (J  .LE.  NCHAN)  THEN 

18  PRINT  *, 'CHANNEL  ' , J,'  (0/1):  ' 

READ  *,JJ 

IF  ((JJ  .EQ.  0)  .OR.  (JJ  .EQ.  1))  THEN 
IDISK(K.J)  -  JJ 
ELSE 

PRINT  *, 'ILLEGAL  INPUT' 

GOTO  18 
END  IF 
ELSE 

IDISK(K.J)  -  0 
END  IF 

19  CONTINUE 

20  CONTINUE 

PRINT  ' 

PRINT  *,'  ' 

C***************************************************** 

C***  TAPES  *** 

C* ***************************************** *********** 

C***  QUERY  USER  ON  NUMBER  OF  TAPES 

21  PRINT  *, 'ENTER  NUMBER  OF  TAPES  DESIRED  (MAX  10) 
READ  *,NTAPE 

IF  ( (NTAPE  .LE.  0)  .OR.  (NTAPE  .GT.  10))  THEN 
PRINT  *, 'ILLEGAL  NUMBER  OF  TAPES' 

GO  TO  21 
END  IF 

DO  26  K-l, NTAPE 
PRINT  *,  ' 

C***  QUERY  USER  ON  TYPE  OF  IAPES 

22  PRINT  *, 'WHICH  TYPE  OF  TAPE  WOULD  YOU  LIKE' 

DO  23  I-l.NUMT 

PRINT  *,I,'.  ' ,TNAME( I ) , '  SPEED  -  ',TSPEED(I) 

'  COST  -  $' ,TCOST(I) 


1 


23  CONTINUE 
PRINT  *,'  ' 

PRINT  *, 'ENTER  TYPE  (1,2,..)  FOR  TAPE  ',K,':  ' 
READ  *, ITAP 

IF  ((ITAP  .LT.  1)  .OR.  (ITAP  .GT.  NUMT) )  THEN 
PRINT  *, 'ILLEGAL  TAPE  TYPE' 

GOTO  22 
END  IF 

ITAPE(K,6)  -  ITAP 

C***  GET  CHANNEL  CONNECTIONS 

PRINT  *, 'ENTER  CHANNEL  CONNECTIONS  FOR  TAPE  ',K 
PRINT  0  -  CHANNEL  NOT  CONNECTED  TO  TAPE' 

PRINT  *,'  1  -  CHANNEL  CONNECTED  TO  TAPE' 

PRINT  *,'  ' 

DO  25  J-1,5 
IF  (J  .LE.  NCHAN)  THEN 

24  PRINT  *, 'CHANNEL  ',J,'  (0/1):  ' 

READ  *,JJ 

IF  ((JJ  .EQ.  0)  .OR.  (JJ  .EQ.  1))  THEN 
ITAPE(K.J)  =-  JJ 
ELSE 

PRINT  *, 'ILLEGAL  INPUT' 

GOTO  24 
END  IF 
ELSE 

ITAPE(K.J)  -  0 
END  IF 

25  CONTINUE 

26  CONTINUE 

PRINT  ' 

PRINT  *,'  ' 

C* ************** ************************************** 
C***  CARD  READER  *** 

C** ************************ ******************* ******** 


C***  QUERY  USER  ON  TYPE  OF  CARD  READER 

27  PRINT  *, 'WHICH  TYPE  OF  CARD  READER  WOULD  YOU  LIKE' 
DO  28  I-l.NUMR 

PRINT  *,I,'.  ' ,RNAME(I) , '  SPEED  -  ',RSPEED(I), 

1  '  COST  -  $',RCOST(I) 

28  CONTINUE 
PRINT  *,'  ' 

PRINT  *, 'ENTER  TYPE  (1,2,..)  OF  CARD  READER  DESIRED 
READ  * ,  IRDR 

IF  ((IRDR  .LT.  1)  .OR.  (IRDR  .GT.  NUMR) )  THEN 
PRINT  *, 'ILLEGAL  CARD  READER  TYPE' 

GOTO  27 
END  IF 

IREAD(6)  -  IRDR 


C***  get  channel  connections 

PRINT  *, 'ENTER  CHANNEL  CONNECTIONS  FOR  CARD  READER' 
PRINT  *,'  0  ~  CHANNEL  NOT  CONNECTED  TO  CARD  READER' 

PRINT  *,'  1  -  CHANNEL  CONNECTED  TO  CARD  READER' 

PRINT  *,'  ' 

DO  30  J-1,5 

IF  (J  .LE.  NCHAN)  THEN 

29  PRINT  *, 'CHANNEL  ' , J,'  (0/1):  ' 

READ  *,JJ 

IF  (t.JJ  .EQ.  0)  .OR.  (JJ  .EQ.  1))  THEN 
IREAD(J)  -  JJ 
ELSE 

PRINT  *, 'ILLEGAL  INPUT' 

GOTO  29 
END  IF 
ELSE 

IREAD(J)  -  0 
END  IF 

30  CONTINUE 

PRINT  ' 

PRINT  *,'  ' 

G ***************************************************** 

C***  LINE  PRINTER  *** 

C***************************************************** 

C***  query  USER  ON  TYPE  OF  LINE  PRINTER 

31  PRINT  *, 'WHICH  TYPE  OF  LINE  PRINTER  WOULD  YOU  LIKE' 

DO  32  I-l.NUMP 

PRINT  *,I,'.  ' , PNAME ( I ) , '  SPEED  -  '.PSPEED(I), 

1  '  COST  -  $',PCOST(I) 

32  CONTINUE 

PRINT  ' 

PRINT  *, 'ENTER  TYPE  (1,2,..)  OF  LINE  PRINTER  DESIRED  ' 
READ  *, IPNTR 

IF  ((IPNTR  .LT.  1)  .OR.  (IPNTR  .GT.  NUMP))  THEN 
PRINT  *, 'ILLEGAL  LINE  PRINTER  TYPE' 

GOTO  31 
END  IF 

IPRINT(6)  -  IPNTR 

C***  GET  CHANNEL  CONNECTIONS 

PRINT  *, 'ENTER  CHANNEL  CONNECTIONS  FOR  LINE  PRINTER' 
PRINT  *,'  0  -  CHANNEL  NOT  CONNECTED  TO  LINE  PRINTER' 

PRINT  *,'  1  -  CHANNEL  CONNECTED  TO  LINE  PRINTER' 

PRINT  *,'  ' 

DO  34  J-1,5 

IF  (J  .LE.  NCHAN)  THEN 

33  PRINT  *, 'CHANNEL  ',J,'  (0/1):  ' 

READ  *,JJ 

IF  ((JJ  .EQ.  0)  .OR.  (JJ  .EQ.  1))  THEN 
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IPRINT(J)  -  JJ 
ELSE 

PRINT  *, 'ILLEGAL  INPUT' 

GOTO  33 
END  IF 
ELSE 

IPRINT(J)  -  0 
END  IF 

34  CONTINUE 

PRINT  ' 

PRINT  ' 

C* ****************************************** ********** 

C***  SOFTWARE  MONITOR  *** 

C* ********************************************** ****** 


c***  QUERY  USER  IF  HE  WANTS  TO  USE  SOFTWARE  MONITOR 

PRINT  *,'DO  YOU  WISH  TO  USE  THE  SOFTWARE  MONITOR  (Y/N)' 

READ  * , SANSWR 

IF  (SANSWR  .EQ.  'Y')  THEN 

PRINT  *, 'ENTER  STARTING  TIME  OF  S/W  MONITOR' 

PRINT  *, 'DAY  HOUR  MINUTE  SECOND' 

READ  *, ISDAY, ISHOUR , ISMIN, SSEC 
PRINT  *, 'ENTER  STOPPING  TIME' 

PRINT  *,'DAY  HOUR  MINUTE  SECOND' 

READ  *, JSDAY, JSHOUR, JSMIN,SSSEC 


PRINT 

*, 'YOU  CAN  MONITOR  UP 

TO 

FIVE 

OF  THE 

FOLLOWING  QUEUES 

PRINT 

'  1.  INPUT 

2.  HOLD 

3. 

EXEC 

4.  OUTPUT' 

PRINT 

'11.  TAPE 

1 

12.  TAPE 

2 

13. 

TAPE 

3 

14.  TAPE 

4' 

PRINT 

* 

'15.  TAPE 

5 

16.  TAPE 

6 

17. 

TAPE 

7 

18.  TAPE 

8' 

PRINT 

* 

'19.  TAPE 

9 

20.  TAPE 

10 

21. 

DISK 

1 

22.  DISK 

2' 

PRINT 

'23.  DISK 

3 

24.  DISK 

4 

25. 

DISK 

5 

26.  DISK 

6' 

PRINT 

'27.  DISK 

7 

28.  DISK 

8 

29. 

DISK 

9 

30.  DISK 

10' 

PRINT 

* 

'31.  CHAN 

1 

32.  CHAN 

2 

33. 

CHAN 

3 

34.  CHAN 

4' 

PRINT 

* 

'35.  CHAN 

5 

36.  NO  QUEUE 

DESIRED' 

PRINT  ' 

DO  36  1-1,5 

PRINT  *, 'ENTER  QUEUE  NUMBER  :  ' 

READ  *, IQ 

IF  (((IQ  .GE.  1)  .AND.  (IQ  .LE.  4))  .OR. 

I  ((IQ  .GE.  11)  .AND.  (IQ  .LE.  36)))  THEN 

ISWMQ(I)  -  IQ 
ELSE 

PRINT  ILLEGAL  QUEUE' 

GOTO  35 
END  IF 

36  CONTINUE 

END  IF 

PRINT  ' 

PRINT  ' 
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0* **************************************** ************ 

C***  HARDWARE  MONITOR  *** 

0** ***************** * * ********* *************** ******** 

C***  QUERY  USER  IF  HE  WANTS  TO  USE  HARDWARE  MONITOR 

PRINT  *,'DO  YOU  WISH  TO  USE  THE  HARDWARE  MONITOR  (Y/N)' 

READ  *, HANSWR 

IF  (HANSWR  .EQ.  'Y')  THEN 

PRINT  *, "ENTER  STARTING  TIME  OF  H/W  MONITOR' 

PRINT  *, 'DAY  HOUR  MINUTE  SECOND' 

READ  * , IHDAY , IHHOUR , IHMIN,HSEC 
PRINT  *, 'ENTER  STOPPING  TIME' 

PRINT  *,'DAY  HOUR  MINUTE  SECOND' 

READ  * , JHDA Y , JHHOUR , JHMIN , SHSEC 
75  PRINT  *, 'ENTER  H/W  MONITOR  SAMPLE  RATE  (IN  SECONDS)  ' 

READ  *, RATE  Hi? 

IF  (RATEHJ  .GT.  99999)  THEN 

PRINT  * , 'DATE  RATE  TO  LARGE,  MAX  RATE  IS  99999' 

GOTO  75 
END  IF 

37  PRINT  * , ' YOU  CAN  HAVE  TWO  TIMERS  AND  FIVE  COUNTERS' 

PRINT  *, 'CONNECTED  TO  THE  FOLLOWING  DEVICES:' 

PRINT  *,'  1.  CPU  2.  READER  3.  PRINTER' 

PRINT  *,'11.  TAPE  1  12.  TAPE  2  13.  TAPE  3  14.  TAPE  4' 

PRINT  *,'15.  TAPE  5  16.  TAPE  6  17.  TAPE  7  18.  TAPE  8' 

PRINT  *,'19.  TAPE  9  20.  TAPE  10  21.  DISK  1  22.  DISK  2' 

PRINT  *,'23.  DISK  3  24.  DISK  4  25.  DISK  5  26.  DISK  6' 

PRINT  *,'27.  DISK  7  28.  DISK  8  29.  DISK  9  30.  DISK  10' 

PRINT  *,'31.  CHAN  1  32.  CHAN  2  33.  CHAN  3  34.  CHAN  4' 

PRINT  *,'35.  CHAN  5  36.  NO  DEVICE  DESIRED' 

PRINT  *,'  ' 

PRINT  *, 'ENTER  NUMBER  OF  DEVICE  FOR  TIMER(l) :  ' 

READ  * , ICNT 

IF  (((ICNT  .GE.  1)  .AND.  (ICNT  .LE.  3))  .OR. 

1  ((ICNT  .GE.  11)  .AND.  (ICNT  .LE.  36)))  THEN 

IHTIM1  -  ICNT 
ELSE 

PRINT  *, 'ILLEGAL  DEVICE' 

GOTO  37 
END  IF 

PRINT  *, 'ENTER  NUMBER  OF  DEVICE  FOR  TIMER(2):  ' 

READ  *,ICNT 

IF  (((ICNT  .GE.  1)  .AND.  (ICNT  .LE.  3))  .OR. 

1  ((ICNT  .GE.  11)  .AND.  (ICNT  .LE.  36)))  THEN 

IHTIM2  -  ICNT 
ELSE 

PRINT  *, 'ILLEGAL  DEVICE' 

GOTO  37 
END  IF 

DO  38  1-1,3 
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PRINT  *, 'ENTER  DEVICE  NUMBER  OF  COUNTER (', I ,') :  ' 

READ  * , ICNT 

IF  (((ICNT  .GE.  1)  .AND.  (ICNT  .LE.  3))  .OR. 

1  ((ICNT  .GE.  II)  .AND.  (ICNT  .LE.  36)))  THEN 

IMfCNT(I)  -  ICNT 
ELSE 

PRINT  *, 'ILLEGAL  DEVICE' 

GOTO  37 
END  IF 

38  CONTINUE 

END  IF 

PRINT  ' 

PRINT  ' 

C*** ***************************************** ******** 

C***  WRITE  DATA  TO  CONFIGUARATTON  FILE  *** 

C****************************** ********************** 

C***  NUMBER  OF  CPUS 

WRITE  (UNIT-1 1 , FMT-100, IOSTAT-IOS , ERR-999)NCPUS 
C***  TYPE  OF  CPU 

WRITE  (UNIT-1 1 , FMT-1 01 , IOSTAT-IOS , ERR-999) 

1  UNAME(ICPU)  ,USPEED(ICPl’)  ,UCOST(ICPU) 

C***  TIME  SLICE 

WRITE  (UNIT-1 1 , FMT-1 12 , IOSTAT-IOS ,ERR-999)TSLICE 
C***  WRITE  NUMBER  OF  MEMORY  PARTITIONS 

WRITE  (UNIT-11, FMT-100, IOSTAT-IOS, ERR -999)NPARTS 
C***  WRITE  SIZE  OF  MEMORY  PARTITIONS 
DO  40  1-1 , NPARTS 

WRITE  (UNIT-11, FMT-1 04, IOSTAT-IOS, ERR«999)I,PART(I) 

40  CONTINUE 

C***  WRITE  NUMBER  OF  CHANNELS 

WRITE  (UNIT-1 1 , FMT-1 00 , IOSTAT-IOS , ERR-999)NCHAN 
C***  WRITE  CHANNEL'S  NAME,  SPEED  AND  COST 
DO  41  I-l.NCHAN 

WRITE  (UNIT-1 1 , FMT-1 01 , IOSTAT-IOS, ERR-999) 

1  CNAME(ICHANL(I) ) ,CSPEED(ICHANL(I) ) ,CCOST( ICHANL(I) ) 

41  CONTINUE 

C***  WRITE  NUMBER  OF  DISKS 

WRITE  (UNIT-11, FMT-1 00, IOSTAT-IOS, ERR-999 )NDISK 
C***  WRITE  DISK'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
DO  42  1-1 ,NDISK 

WRITE  (UNIT-1 1 , FMT-1 05 , IOSTAT-IOS , ERR-999 ) 

1  DNAME(IDISK(I,6)),DSPEED(IDISK(I,6)),DCOST(IDISK(I,6)), 

1  (IDISK(I,K),K-1,5) 

42  CONTINUE 

C***  WRITE  NUMBER  OF  TAPES 

WRITE  (UNIT-1 1 , FMT-100, IOSTAT-IOS , ERR-999 )NTAPE 
C***  WRITE  TAPE'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
DO  43  I-l.NTAPE 

WRITE  (UNIT-1 1 , FMT-1 05 , IOSTAT-IOS , ERR-999 ) 


1  TNAME(ITAPE(I, 6) ) ,TSPEED(ITAPE( I, 6) ) ,TCOST( ITAPE(I ,6) ) , 

1  ( ITAPE ( I , K) , K-l , 5 ) 

43  CONTINUE 

C***  WRITE  CARD  READER'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
WRITE  (UNIT-I I , FMT-1 05, IOSTAT-IOS ,  ERR-999  ) 

1  RNAME(  IREAD(6 ) ) ,RSPESD( IREAD(6) ) ,RCOST( IREAD(6) ) , 

I  (IREAD(K) , K-l ,5) 

C***  WRITE  LINE  PRINTER'S  NAME,  SPEED,  COST  AND  CHANNEL  CONNECTIONS 
WRITE  (UNIT-11, FMT-105, IOSTAT-IOS, ERR-999) 

I  PNAME(IPRINT(6)),PSPEED(IPRINT(6)),PCOST(IPRINT(6)), 

1  (IPRINT(K) ,K-1 ,5) 

C***  WRITE  IF  SOFTWARE  MONITOR  IS  DESIRED 

WRITE  (UNIT-11, FMT-1 06, IOSTAT-IOS, ERR-999 )SANSWR 

C***  WRITE  START  TIME,  STOP  TIME,  AND  QUEUES  IF  DESIRED 
IF  (SANSWR  .EQ.  'Y')  THEN 

WRITE  (UNIT-1 1 , FMT-107 , IOSTAT-IOS , ERR-999) 

1  ISDAY, ISHOUR , ISMIN.SSEC 

WRITE  (UNIT-1 1,FMT-108, IOSTAT-IOS, ERR-999) 

1  JSQAY, JSHOUR , JSMIN, SSSEC 

WRITE  (UNIT-1 l.FMT-109, IOSTAT-IOS, ERR -999) (ISWMQ(I), 1-1,5) 
END  IF 

C***  WRITE  IF  HARDWARE  MONITOR  IS  DESIRED 

WRITE  (UNIT-1 l.FMT-106, IOSTAT-IOS, ERR-999 )HANSWR 

C***  WRITE  START  TIME,  STOP  TIME,  TIMERS  AND  COUNTERS  IF  DESIRED 
IF  ( HA NSW R  .EQ.  'Y')  THEN 

WRITE  (UNIT-1 l.FMT-l 10, IOSTAT-IOS, ERR-999) 

1  IHDAY, IHHOUR , IHMIN.HSEC 

WRITE  (UNIT-1 1 , FMT-1 1 1 , IOSTAT-IOS , ERR-999 ) 

1  JHDAY, JHHOUR , JHMIN, SHSEC 

WRITE  (UNIT-1 l.FMT-102, IOSTAT-IOS, ERR-999 )RATEW 
WRITE  (UNIT-1 1 , FMT-1 09, IOSTAT-IOS , ERR-999) 

1  IHTIM1,IHTIM2,(IHWCNT(I),I-1,3) 

END  IF 

100  F0RMAT(I2) 

101  FORMAT(A20,1X,F10.4,IX,F8.2) 

102  FORMAT('H/W  MON  SAMPLE  RATE',T22,F10.4) 

103  F0RMAT(I5) 

104  FORMAT( 'PARTITION  ', I2,T22,F10.4) 

105  FORMAT(A20,1X,F10.4,1X,F8.2,1X,5(1X,I1)) 

106  FORMAT(Al) 

107  FORMAT('S/W  MONITOR  START', T22 , 3(14 , IX) , F8.4) 

108  FORMAT('S/W  MONITOR  STOP' ,T22 , 3(14 , IX) ,F8.4) 

109  FORMAT(5(I2 , IX)) 

110  FORMAT('H/W  MONITOR  START' ,T22 , 3(14 , IX) ,F8. 4) 

111  FORMAT('H/W  MONITOR  STOP',T22, 3(14, IX) ,F8.4) 

112  FORMAT ('TIME  SLICE' ,T22 ,F10. 4) 

GOTO  800 

990  PRINT  *, 'ERROR  IN  OPENING  FILE  IOSTAT  -  ',IOS 
GO  TO  800 

999  PRINT  *, 'ERROR  IN  READ  IOSTAT  -  ',IOS 
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CPE  S IM  II 


Instructor  Manual 


1.0  Introduction 


CPESIM  II  consists  of  a  simulation  of  a  major 
computer  system  and  its  operating  environment.  It  was 
designed  for  use  as  a  laboratory  aid  to  allow  students  to 
apply  Computer  Performance  Evaluation  (CPE)  tools  and 
techniques  to  a  "real"  computer  system.  The  use  of  an 
actual  system  for  such  studies  is  impractical  for  several 
reasons.  First,  due  to  the  overhead  and  disruption  caused 
by  some  measurement  tools,  their  use  in  a  real  system  for 
classroom  purposes  may  be  prohibited  by  computer  center 
personnel.  Second,  if  measurement  data  is  available  it  may 
not  be  academically  useful.  That  is,  the  system  may  be 
operating  as  it  should  (thus  providing  no  problem  solving 
opportunities),  or  it  may  contain  several  interacting 
problems  which,  although  realistic,  cannot  practically  be 
resolved  by  a  student  as  a  one-quarter  course  project. 

Third,  if  the  data  does  allow  the  student  to  analyze  a 
problem  and  recommend  a  solution,  it  is  unlikely  that  the 
computer  center  will  allow  tie  implementation  of  the 
solution  (or  of  several  conflicting  solutions  from  several 
students).  CPESIM  II  solves  these  constraints  be  providing 
a  simulated  environment  in  which  the  student  can  gather 
whatever  data  is  desired,  analyze  the  data  and  recommend  a 
solution,  implement  the  solution  (at  an  appropriate  cost), 
and  then  analyze  the  modified  system  to  verify  whether  or 
not  the  solution  was  effective. 

CPESIM  II  consists  of  two  parts.  The  heart  of 
CPESIM  II  i s  a  computer  simulation  (written  in  SLAM)  of  a 
large-scale  computer  system  processing  a  workload,  which 
executes  on  a  host  machine  (e.g.,  the  CYBER).  Because  it  is 
a  simulation,  there  are  many  simplifications  and  limitations 
which  restrict  its  representation  of  reality.  The  second 
part  of  CPESIM  II  is  a  simulated  operating  environment  for 
the  computer  system.  This  includes  a  computer-generated 
workload,  a  written  scenario,  budgetary  constraints,  and 
system  data  in  a  form  that  can  be  manipulated  and  analyzed 
by  the  student,  playing  the  part  of  a  CPE  analyst  and/or  DP 
ma  nag  e r  . 


The  written  scenario  provides  the  student  with 
operating  details  about  the  particular  computer  installation 
he  or  she  is  to  investigate.  The  instructor  configures  the 
hardware,  operating  system,  and  workload  to  illustrate  a 
particular  problem  or  situation.  Measurement  data  is  then 
provided  to  the  student  as  requested  for  analysis  and 
decision  making  on  a  periodic  basis  (e.g.,  weekly).  In 
order  to  force  the  student  analyst  to  make  tradeoffs,  only  a 
subset  of  the  available  data  can  be  accessed  during  a  given 
period,  and  an  appropriate  cost  is  associat'd  with  each 
student  request. 


1 • 1  CPESIM  II  Output  To  Students 


Many  types  of  information  are  available  to  the 
student  to  aid  in  the  analysis.  Some  of  these  are  free  and 
automatic.  Some  must  specifically  be  requested.  There  is  a 
cost  associated  with  many.  Some  are  mutually  exclusive. 

The  student  must  choose  what  data  he  wants  and  how  he  wants 
to  use  it.  This  section  briefly  describes  the  outputs 
available  and  directs  the  student  to  further  information. 

Manufacturer's  Data  -  Literature  (of  varying  value) 
describing  hardware  and  software  features  is  available  in 
printed  form. 

Installation  Documentation  -  In-house  documentation 
of  the  local  configuration,  parameter  values,  modifications, 
problems,  etc.,  may  be  available  in  printed  form.  These  are 
specific  to  a  given  problem  and  will  be  provided  as  a 
separate  handout. 

Accounting  System  Data  -  The  computer's  accounting 
system  files  are  available  at  no  cost  to  the  student  as  disk 
files  on  the  host  computer.  Such  data  is  in  raw  form,  and 
the  format  is  defined  in  the  manufacturer's  literature  for 
the  appropriate  operating  system. 

Hardware  Monitor  -  A  hardware  monitor  exists  for  the 
simulated  computer.  However,  such  a  monitor  may  have  to  be 
purchased  or  leased.  Particular  probe  points  and  sampling 
periods  must  be  specified  by  the  student.  As  with  a  real 
hardware  monitor,  there  is  no  effect  on  system  performance. 
The  output  data  is  available  as  a  disk  file  on  the  host 
computer . 


Software  Monitor  -  A  software  monitor  is  available 
for  the  simulated  computer.  However,  it  may  have  to  be 
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purchased  or  leased*  As  with  real  software  monitors,  these 
monitors  require  memory,  runtime,  and  other  system  overhead 
to  operate.  Output  data  is  available  as  disk  files  on  the 
host  computer . 

Budget  Reports  -  Periodic  written  summaries  of  the 
dollars  spent  will  be  available  to  the  analyst. 

1 . 2  Student  Inputs  to  CPESIM  II 

One  of  the  advantages  of  a  simulation  is  that  the 
students  can  make  changes  to  the  system.  Thus,  there  are  a 
number  of  inputs  that  the  student  may  (or  must)  provide  to 
CPESIM  II  (as  well  as  some  that  he  cannot).  This  section 
briefly  describes  the  CPESIM  II  inputs  available  to  the 
student. 

Workload  -  Students  have  no  control  over  the 
workload.  The  instructor  does  control  the  workload  and  may 
choose  to  vary  it  as  the  situation  dictates  (e.g.,  in 
response  to  a  student  initiated  "user  education  program"). 

Interview  Requests  -  Student  analysts  can  submit 
written  questions  to  installation  personnel.  Questions  may 
or  may  not  be  answered.  Charges  for  personnel  time  spent 
answering  questions  will  be  assessed  to  the  student's 
account . 

Monitor  Purchase  -  Student  analysts  can  submit 
purchase  orders  for  the  purchase  of  lease  of  any  available 
hardware  or  software  monitors. 

Monitor  Input  Parameters  -  If  the  software  monitor 
is  desired  then  the  students  must  provide  the  simulation  the 
starting  time,  stopping  time,  and  the  queues  to  be 
monitored.  If  the  hardware  monitor  is  chosen  then  the 
starting  time,  stopping  time,  sample  rate,  counter  probes, 
and  timer  probes  must  be  specified.  The  student  can  input 
these  parameters  by  using  the  "User”  interface  while  making 
the  configuration  file. 

Reconfiguration  Requests  -  Students  may  request 
reconfiguration  of  existing  hardware  and  operating  system 
parameters.  Personnel  costs  to  reconfigure  will  be 
assessed.  Degradation  of  system  performance  because  of  such 
changes  will  be  frowned  upon  by  installation  management. 

Purchase  of  System  Options  -  Additional  hardware  or 
operating  system  modules  may  be  purchased  by  submitting  an 


appropriate  purchase  order.  Costs  will  be  assessed  directly 
to  the  student  account.  Information  on  current  cost  and 
availability  will  be  provided  with  each  particular  project. 

Personnel  Hiring  -  Requests  for  hiring  additional 
installation  personnel  (e.g.,  for  an  additional  shift)  or 
for  overtime  authorization  may  be  submitted.  If  approved, 
costs  will  be  assessed  directly  to  the  student  account. 


1 . 3  Student  Input  For  Grading 

Of  course,  choice  of  grading  technique  is  the 
prerogative  of  each  individual  instructor.  However,  this 
section  describes  one  set  of  student  inputs  that  may  be  used 
for  that  purpose. 

Final  Report  -  This  represents  the  single  most 
important  input  to  the  student's  final  grade.  The  report 
should  be  typewritten  with  drawings,  tables,  and  graphs  of 
professional  quality.  The  report  should  consist  of  two 
parts.  Part  1  is  the  Analyst's  Report.  This  should  include 
a  clear  statement  of  the  problem  as  perceived,  a  systems 
analysis  and  description,  stated  hypothesis  of  the  specific 
problem,  analysis  done  to  confirm  (or  deny)  the  hypothesis, 
recommended  solution,  and  verification  that  the  implemented 
solution  solved  the  problem.  Also,  included  should  be  a 
cost  analysis  and  recommendations  for  the  future.  Part  II 
is  the  Student's  Critique.  This  should  include  an 
evaluation  of  the  simulation  as  a  learning  tool  along  with  a 
discussion  of  problems  encountered  and  recommended  changes. 

Interim  Reports  -  Various  interim  reports  cay  be 
required  throughout  the  quarter,  depending  on  the  s  enario. 
These  should  be  of  the  same  quality  as  the  final  report  and 
will  count  toward  the  project  grade. 

Software  Tools  -  Some  specific  software  tools  (e.g., 
data  reduction  packages)  may  be  required  during  the  quarter. 
These  will  specifically  count  toward  the  project  grade.  For 
any  other  tools  that  the  student  might  develop,  the  source 
code  should  also  be  submitted.  These  programs  will 
Influence  the  project  grade. 

Oral  Presentation  -  Each  team  will  be  required  to 
make  a  final  oral  presentation  to  the  class  and  possibly  an 
Interim  report  as  well.  Although  an  important  purpose  of 
the  oral  report  is  to  share  each  team's  analysis  and 
findings  with  the  rest  of  the  class,  presentation  is  a 
graded  part  of  the  project  and  should  be  done  in  a 


professional  manner 
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1.4  Structure  and  CPESIM  II  Simulation 


Figure  1  provides  an  overview  of  the  CPESIM  II 
system  structure.  The  system  can  be  divided  into  two 
sections.  The  first  phase  consists  of  generating  two  files, 
CONDES  and  EVSTR,  needed  by  the  simulation  itself.  CONDES 
is  a  file  of  parameters  describing  the  simulated  computer 
system.  CONDES  is  created  by  a  series  of  questions  and 
answers  from  the  user  interface  program  (SETUP)  prior  to  the 
simulation  run.  EVSTR  is  a  file  of  synthetic  job 
parameters,  one  record  for  each  job,  that  provides  a 
workload  for  the  simulated  system.  Although  EVSTR  can  come 
from  anywhere  (including  the  accounting  log  from  a  real 
computer),  the  program  CRSTR  provides  a  means  of  generating 
the  workload  from  a  set  of  workload  description  parameters, 
stored  in  file  WRKDES.  This  program  is  very  useful  for 
generating  artificial  workloads  for  many  uses  other  than 
CPESIM  II.  File  WRKDES  in  turn,  can  be  input  from  cards  or 
from  a  permanent  disk  file. 

The  second  part  consists  of  the  programs  and  files 
to  execute  the  simulation  itself.  In  the  second  phase  the 
actual  simulation  programs,  SIMS  and  SIMF,  are  used  along 
with  CONDES  and  EVSTR  as  input  to  generate  performance  data 
files  ACTLOG  and,  optionally,  HRDMON  and  SFTMON . 


1 . 5  Paper  Organization 

The  remainder  of  this  report  discusses  the  two 
phases  in  greater  detail.  Chapters  2  and  3  discuss  the 
workload  generation  and  configuration  definition  of  phase  1, 
respectively.  Chapter  4  discusses  the  phase  2  execution  of 
the  simulation. 
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2.0  Workload  Generation 


This  section  describes  the  workload  generation 
process.  It  should  be  noted  that  this  procedure  can  be  used 
independently  of  the  rest  of  CPESIM  II  to  generate  workloads 
for  any  simulation  such  as  statistical  data  analysis, 
simulated  operating  systems,  etc.  The  output  workload 
consists  of  a  sequence  of  simulated  "jobs"  where  each  job 
consists  of  a  job  identifier,  an  arrival  time,  and  a  series 
of  computer  resource  requirements  (e.g.,  CPU  time,  memory, 
etc.).  These  job  parameters  are  based  on  user  specified 
frequency  distributions  and  associated  parameters  for  each 
resource.  These  distributions  can  be  changed  at  any  time 
throughout  a  standard  24  hour  day.  The  system  can  generate 
up  to  seven  days  of  workload,  but  the  sequence  of 
distributions  must  be  identical  for  each  day  (i.e.,  each  day 
is  statistically  the  same). 


2 . 1  Workload  Specification 

Table  1  defines  the  input  card  images  necessary  to 
generate  a  workload.  The  actual  generation  program  (CRSTR) 
reads  these  images  from  a  disk  file  with  local  filename 
WRKDES .  Thus,  the  user  can  load  WRKDES  from  an  actual  card 
deck,  or  can  create  or  change  this  file  interactively.  All 
of  the  input  fields  on  all  the  cards  are  in  a  free-form 
format.  This  means  that  the  information  on  the  input  cards 
does  not  need  to  be  in  a  particular  column.  However,  the 
order  of  the  data  is  critical.  Most  of  the  information 
required  is  formatted  so  that  a  key  word  indicates  the 
contents  of  the  fields  which  follow  it.  The  end  of  a  card 
terminates  a  value  for  a  field,  but  has  no  other  effects. 

All  fields  must  be  separated  by  at  least  one  space.  All 
numerical  information  is  entered  as  "real”  numbers.  This 
means  all  numbers  must  have  a  decimal  point  and  a  zero.  If 
a  decimal  point  is  not  present,  the  code  which  edits  the 
input  will  generall”  reject  the  number,  or  assume  a  decimal 
point  -  not  necessarily  where  it  ought  to  be.  All  input 
fields  have  default  values  which  are  used  if  an  input  value 
has  an  error.  Otherwise  all  data  fields  in  a  card  should  be 
used.  A  card  may  be  dropped  from  the  input  if  it  is  not 
required.  A  card  is  the  basic  input  unit,  and  it  consists 
of  a  keyword  followed  by  a  series  of  data  fields.  These 
logical  cards  may  actually  occupy  more  • han  one  physical 
card . 

The  first  card  in  this  file,  which  is  optional,  is 
the  DAY  card,  depicted  in  Table  1A.  This  card  merely 
specifies  the  number  of  days  of  workload  to  be  generated. 


The  second  card  is  the  SED  card  (Table  IB).  This 
card  specifies  a  seed  for  the  random  number  generator. 
Program  CRSTR  uses  this  seed  to  generate  several  seeds  for 
the  different  parameter  distributions. 

The  third  card  of  interest,  shown  in  Table  1C  is  the 
TIM  card.  This  card  specifies  a  time  (in  decimal  hours)  at 
which  the  workload  generating  distributions  are  to  be 
changed.  These  records  must  be  in  ascending  time  sequence 
in  the  workload  creation  deck.  The  parameter  cards  are  thus 
interspersed  among  the  TIM  cards.  The  parameters  which  are 
defined  prior  to  the  first  TIM  card  go  into  effect  at  hour 
0.00  and  continue  to  be  in  control  unless  another  record 
defining  the  parameter  appears.  If  more  than  one  definition 
of  the  same  parameter  appears,  the  last  definition  for  that 
time  period  is  used.  Only  distributions  that  are  changed  by 
cards  following  this  one  will  actually  be  changed.  Other 
distributions  will  continue  as  they  were  before  the 
specified  TIM  card.  Any  number  of  TIM  cards  my  be  Included 
in  a  single  24-hour  day.  This  same  pattern  of  distribution 
will  be  used  for  each  day  of  the  workload. 

The  final  card  type  is  the  parameter  card.  One  of 
these  cards,  described  in  Table  ID,  is  used  to  specify  each 
distribution.  The  first  field  specifies  the  variable  to 
which  the  distribution  is  applied.  The  parameter  options 
for  the  first  field  are  listed  in  Table  IE.  The  second 
field  specifies  the  distribution  type,  and  the  following 
fields  list  the  distribution  parameters.  The  allowable 
distribution  types  and  required  parameters  are  listed  in 
Table  IE.  Some  of  the  data  on  the  logical  cards  is  in  the 
form  of  probability  distributions.  The  distributions  are 
sequences  of  numbers  structured  as  follows: 

probability-of-the  value  the  value  .  .  . 

probabil i ty-of-the  value  the  value  * 

The  sequence  of  number  pairs  is  followed  by  an  asterisk  to 
indicate  the  end  of  the  sequence  (all  variable  length 
sequences  of  information  are  followed  by  an  asterisk).  The 
sequence  may  be  spread  across  as  many  physical  cards  as 
desired.  There  are  two  types  of  distributions  which  may  be 
specified  in  this  manner.  They  are  a  probability  density 
function  or  a  cumulative  distribution  function.  If  a 
probability  density  function  is  specified,  then  the 
probabilities  must  add  up  to  1.0.  If  a  cumulative 
distribution  function  is  specified,  then  the  first  entry 
must  be  for  the  zero  probability  (even  it  is  zero),  the 


probabilities  must  be  specified  in  ascending  order,  and  the 
last  probability  must  be  1.0. 

Figure  2  illustrates  an  example  of  the  WRKDES  file 
for  generating  one  day's  data.  The  interarrival  time  card 
with  a  mean  of  481  minutes  followed  by  a  TIM  8.0  is  used  to 
keep  any  jobs  from  arriving  before  8:00.  Thereafter  all 
distributions  are  defined.  The  TIM  16.0  followed  by  the  INT 
card  with  mean  of  48i  results  in  no  job  arrivals  after  1600. 


2 . 2  Program  Execution 

The  sequence  of  workload  specification  cards 
described  in  Section  2.1  must  be  presented  to  the  generating 
program  CRSTR  as  a  disk  file  under  local  filename  WRKDES  by 
copying  a  card  deck  from  INPUT  or  attaching  an  appropriate 
permflle.  The  generating  program  itself,  CRSTR,  must  be 
attached,  as  well  as  the  system  SIMSCRIPT  library  SIM2LIB. 
The  output  file  from  CRSTR  has  local  filename  EVSTR,  and 
should  be  requested  as  a  permanent  file  and  declared  as  an 
80  character  file  to  the  Cyber  Record  Manager.  The  CRSTR 
program  can  then  be  executed.  Finally,  the  output  file 
EVSTR  should  be  cataloged.  Figure  3  illustrated  the  Cyber 
control  cards  used  in  this  sequence.  The  relation  of  data 
and  program  files  can  be  seen  in  Figure  1. 


2.3  Event  Stream  File  EVSTR 


The  output  of  the  workload  generating  program  is  a 
file  EVSTR  which  is  basically  a  sequence  of  arriving  jobs 
sorted  in  order  of  arrival  time.  However,  this  file  is 
Intended  as  an  input  event  stream  to  the  main  CPESIM  II 
program,  and  actually  consists  of  three  event  types: 

POWER. UP,  JOB. ARRIVAL,  and  SWITCH. OFF,  as  described  in  Table 
2.  Each  record  is  terminated  by  an  The  first  record, 

POWER. UP,  and  the  last  record,  SWITCH. OFF,  were  used  in  the 
original  CPESIM  II,  and  are  no  longer  used.  They  can  be 
left  in  the  file  or  be  excluded  as  desired.  The  remaining 
records  each  represent  an  arriving  job.  The  first  field 
contains  the  character  string  JOB. ARRIVAL,  and  the  remaining 
fields  contain  parameters  for  that  job  as  defined  in  Table 
2.  The  EVSTR  file  format  is  indicated  in  Table  3  for  use  by 
other  programs.  Note  that  this  file  is  written  by  a 
SIMSCRIPT  program,  and  arrival  times  less  than  one  do  not 
include  a  leading  zero,  hence  the  file  may  not  be  readable 
as  is  by  a  PASCAL  program  (if  any  jobs  arrive  prior  to 
1 : 00AM) . 
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2.4  Other  CRSTR  Output 


In  addition  to  the  event  stream  file,  CRSTR  also 
prints  a  workload  description  to  the  line  printer  (Cyber 
OUTPUT  file).  This  information  reflects  the  input  WRKDES 
information,  nicely  formatted,  as  well  as  the  total  numoer 
of  jobs  created  and  the  last  day  jobs  arrived. 


Table  1-A  WORKLOAD  CREATION  INPUT; 
DAY  CARD  (OPTIONAL) 


FIELD  CONTENTS _ 

1  Record  Type 

2  Num  of  Days 


VALUE (S)  DEFAULT 
DAY  (Req) 

Integer  7.0 


COMMENTS 
NOTE  1 
NOTE  2 


NOTE 

1 : 

Indicates  a  day  card 
of  days  the  workload 

.  Used 
is  to 

to 

be 

identify 
created . 

the  number 

NOTE 

2: 

The  number  of  days  a 

wo  rkl 

oad 

is  to  be 

created  for 

Table  1-B  WORKLOAD  CREATION  INPUT; 

SEED  CARD  (OPTIONAL) 

FIELD  CONTENTS  VALUE(S)  DEFAULT  COMMENTS 

1  Record  Type  SED  (Req)  NOTE  1 

2  SEED  REAL  0.0  NOTE  2 

NOTE  1:  Indicates  a  random  number  generator  seed  card 
Used  to  specify  different  starting  seed  for 
workload  random  number  generation. 

NOTE  2:  The  starting  seed  to  be  used. 


Table  1-C  WORKLOAD  CREATION  INPUT; 
TIME  CARD  (OPTIONAL) 


FIELD 

CONTENTS 

VALUE (S) 

DEFAULT 

COMMENTS 

1 

Record  Type 

TIM 

( P  e  q  ) 

NOTE  1 

2 

Cutoff/Start  Hour 

Real 

0.0 

NOTE  2 

NOTE  1:  Indicates  a  time  change  input  card.  Used  to 
delimit  sections  of  a  day  when  d i s t r obu t i ons 
apply. 

NOTE  2:  The  hour  at  which  the  distributions  prior  to  this 

card  are  replaced  by  the  distributions  which  follow 
it.  If  a  distribution  is  not  replaced,  it 
continues  to  control  the  output  parameters.  All 
distributions  are  initialized  to  default  values  at 
hour  0.0.  When  the  input  deck  is  read,  the  time 
of  day  is  initialized  to  0.0. 


Table  1-D  WORKLOAD  CREATION  INPUT 
PARAMETER  CARDS 


FIELD  CONTENTS _ VALUE  (S) _ DEFAULT  COMMENTS 


I 

REC  TYPE 

See 

Table 

1-E 

(Required) 

2 

Distribution 

Name 

See 

Table 

1  — F 

EXPONENT  NOTE  1 

3 

Distribution 
Parame te  r s 

See 

Table 

1-F 

1 . 0 

NOTE 

1:  The  distribution  which  governs 
indicated  by  the  record  type. 

the  parameter 

Table  1-E  PARAMETER  VALUES  FOR 
FIELD  1  OF  PARAMENTER  CARDS 


PARAMETER  NAME 


COMMENTS 


Interarrival  time  in  minutes 

CPU  time  in  seconds 

Memory  required  in  IK  blocks 

Priority  in  integer  values  greater 
than  1.  Higher  priority  *  lower 
value . 


Number  of  allocatable  devices 


Number  of  input  cards 
Number  of  output  lines 
Number  of  system  disk  blocks 


Number  of  allocated  device  blocks. 


Table  1-F  DISTRIBUTIONS  AVAILABLE 
FOR  WORKLOAD  DESCRIPTION 


DISTRO  NAME 

PARAMETERS 

COMMENTS 

BETA 

XPOWER  X-1P0WER 

Generates  a  beta  disto- 
buted  real  numbers  where 

XPOWER  *  power  of  x  and 
X-1POWER  =  power  of  (1-x) 

BINOMIAL 

TRIALS  PR  OB  J  UC 

Generates  integers  repre¬ 
senting  the  number  of  suc¬ 
cess  in  TRAILS  independent 
trials  when  the  probabil¬ 
ity  of  success  is  PROBSUC. 

ERLANG 

MEAN  K 

Generates  Erlang  distri¬ 
buted  numbers  with  MEAN 
and  K 

EXPONENT 

MEAN 

Generates  Exponentially 
distributed  numbers  with 
MEAN. 

GAMMA 

MEAN  K 

Generates  a  Gamma  distibut- 
ed  numbers  with  MEAN,  and  K 

LOGNORMAL 

MEAN  “ TDDEV 

Generates  Lognormally  dis¬ 
tributed  numbers  with  MEAN 
and  standard  deviation 
STDDEV  . 

NORMAL 


MEAN  STDDEV 


Generates  Normally  distri¬ 
buted  numbers  with  MEAN  and 
standard  deviation,  STDDEV. 


Table  1-F  DISTRIBUTIONS  AVAILABLE 
FOR  WORKLOAD  DESCRIPTION  (CONTINUED) 


DISTRO  NAME 

PARAMETERS 

COMMENTS 

POISSON 

MEAN 

Generates  ’oisson  distri¬ 
buted  numbers  with  MEAN. 

UNIFORM 

L'\L 

HVAL 

Generates  Uniformly  distri¬ 
buted  numbers  form  LVAL  to 
HVAL. 

WEIBULL 

SHAPE 

SCALE 

Generates  numbers  from  a 
Weibull  distribution  vith  a 
SHAPE  parameter  and  a  SCALE 
parame  ter . 

STEP 

VPROB 

VAL 

Generates  numbers  from  the 
values  specified  by  VAL 
with  probabilities  VPROB. 
The  VPROB  values  must  form 
a  probability  distribution 
function  or  cumulative  dis¬ 
tribution  function.  A  * 
must  terminate  the  string 
of  numbers. 

LSTEP 

VPROB 

VAL 

Generates  numbers  linearly 

interpreted  from  the  values 
specified  by  VAL  with  prob¬ 
abilities  VPROB.  The  V  PR  OB 
values  must  form  a  valid 
cumulative  distribution 
function.  A  *  must  termin¬ 
ate  the  string  of  numbers. 
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FIELD 


CONTENTS 


VALUE ( S ) 


COMMENTS 


1  Event  Type  POWER.UP  Indicates  the  starting 

time  of  the  computer 

2  Start  Up  Time  Real  *  0  The  time  at  which  the 

computer  is  to  start 
processing  in  hours 

3  Record  Term.  * 


NOTE  1:  This  card  is  no  longer  used  by  CPESIM  II  to  start 
the 

computer.  It  will  not  affect  the  simulation  an! 
can  be  left  in  the  EVSTR  file. 


Table  2-B  EVENT  STREAM  (EVSTR)  FORMAT 
JOB  ARRIVAL  EVENT 


FIELD 

CONTENTS 

VALUE ( S ) 

COMMENTS 

1 

Event  Type 

JOB. ARRIVAL  Indicates  arrival  of  a 
jib  for  the  computer  to 
process  . 

2 

Arrival  time 

Real  0 

Arrival  time  in  hours. 

3 

Job  Name 

Integer 

Unique  job  indentifler. 

4 

CPU  Time 

Integer 

CPU  time  required  in 
second  s . 

5 

Memory 

Integer 

Blocks  of  memory  needed. 

6 

Priority 

Integer  1 

Job  priority.  Lower 
value  *  higher  priority. 

7 

Allocatable 

Devices 

Integer 

Number  of  devices 
required . 

8 

Cards 

Intger 

Number  of  input  cards. 

9 

Lines 

Integer 

Number  of  lines  outputed 

10 

Disk  Blocks 

Integer 

Number  of  disk  blocks 
job  reads/writes. 

11 

Allocatable 
Device  Blocks 

Integer 

Number  of  blocks  job 
reads/writes  to  allocat¬ 
ed  devices. 

12 

Record  Term 

* 

ss 


Table  2-C  EVENT  STREAM  (EVSTR)  FORMAT 
SWITCH  OFF  EVENT  (Note  1) 


FIELD 


CONTENTS 


VALUE(S) 


COMMENTS 


Event  Type 


SWITCH. OFF  Indicates  the  stopping 
time  of  the  computer 


Start  Up  Time  Real  *  0  The  time  at  which  the 

computer  is  to  stop 
processing  in  hours 

Record  Term.  * 


NOTE  1:  CPESIM  II  no  longer  uses  this  card  to  process  the 
end  of  the  job  stream.  The  simulation  ignores 
this  card  and  can  be  left  in  EVSTR. 
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Table  3  EVSTR  Format  For  Job  Records 


m 


FIELD 

VARIABLE 

FORMAT 

1 

JOB .ARRIVAL 

A12  (left  justified) 

2 

Arrival  Time 

F10.4, IX 

3 

Job  Name 

110, IX 

4 

CPU  Time 

13  ,  IX 

5 

Memory 

13,  IX 

6 

Priority 

12  ,  IX 

7 

Alloc.  Devices 

12  ,  IX 

8 

Cards 

14,  IX 

9 

Lines 

15,  IX 

10 

Disk  Blocks 

14  ,  IX 

11 

Alloc.  Device  Blocks 

14  ,  IX 

12 

* 

1A 

SED  680 
DAY  1.0 

INT  STEP  1.0  481.0  * 

TIM  8.0 

INT  EXPONENT  3.0 
CPU  EXPONENT  160.0 

MEM  LSTEP  0.0  10.0  0.1  16.0  0.  19  20. C 

0.19  25.0  0.029  30.0  0.32  35.0 

0.38  50.0  0.57  63.0  0.76  70.0 

0.76  100.0  0.855  124.0  0.95  150.0 

0.95  190.0  1.0  205.0  * 

PR  I  STEP  1.0  2.0  * 

MTS  STEP  1.0  0.0  * 

CRD  EXPONENT  10.0 
LIN  EXPONENT  10.0 
DIS  EXPONENT  1000. 0 
TAP  STEP  1.0  0.0  * 

TIM  13.0 

CPU  EXPONENT  500.0 
TIM  16.0 

INT  STEP  1.0  481.0  * 


Fig  3.  Cyber  JCL  to  Execute  CRSTR 


3 .  Configuration  Definition 

In  addition  to  an  input  workload,  the  CPESIM  II 
simulator  also  needs  to  know  the  current  system 
configuration.  This  section  describes  how  the  user 
specifies  the  configuration.  The  simulation  program  uses  a 
configuration  file  with  the  local  name  CONDES.  This  file 
can  be  entered  from  a  remote  terminal.  The  CONDES  file 
contains  information  on  the  hardware  devices  (disks,  CPU, 
etc.),  hardware  interconnections,  operating  system 
parameters  (partition  sizes,  etc),  hardware  monitor 
connections,  and  software  monitor  parameters.  This  section 
discusses  each  of  these  areas. 

3 . 1  Hardware/Software  Architecture  Definition 

The  first  records  of  interest  in  the  CONDES  file  define 
the  hardware,  operating  system  parameters,  and 
interconnections  of  the  computer  system  being  simulated. 
These  records  are  defined  in  Table  4A  through  4K,  and  must 
be  entered  in  the  file  in  the  order  listed  in  Table  4L. 

These  records,  as  indicated  in  the  first  field  of  each,  deal 
with  the  CPU,  with  memory,  with  each  IOC  (I/O  channel),  and 
with  each  I/O  device. 

The  first  three  records  deal  with  the  cpu.  The  first 
record  indicates  the  number  of  cpus  that  will  be  in  the 
simulation.  The  second  contains  the  cpu  name,  the  cpu  ratio 
which  is  used  to  simulate  relative  speeds  of  different 
processors,  and  the  cpu  cost.  If  the  ratio  has  a  value  of 
1.0  each  job  will  require  the  same  amount  of  CPU  time  as  is 
specified  In  that  job's  resource  requirement  in  the  EVSTR 
file.  A  faster  processor  would  be  simulated  by  using  a  CPU 
ratio  of  a  less  than  1.0.  Thus  this  parameter  is  the  ratio 
of  the  actual  processing  time  to  the  requested  processing 
time.  Typically  this  value  would  be  initially  set  to  1.0, 
then  varied  on  later  runs  to  reflect  replacement  of  the  CPU 
with  a  faster  or  slower  (and  cheaper)  CPU.  The  third 
record,  sets  the  round  robin  time  quantum.  This  parameter 
sets  the  number  of  seconds  that  each  job  will  execute  before 
yielding  the  CPU  to  another  job.  Note  that  if  a  job 
requests  an  I/O  before  this  time  is  reached  it  will  yield 
the  CPU  at  that  time.  By  setting  this  parameter  to  a  very 
large  number,  FIFO  service  can  be  modeled.  CAUTION:  Since 
this  simulation  distributes  disk  and  tape  I/Os  evenly  across 
a  job's  runtime,  if  the  average  time  between  I/O  requests  is 
less  than  the  round  robin  time  quantum,  then  for  most  jobs 
the  latter  parameter  becomes  irrelevant,  and  the  system  will 
behave  as  though  it  uses  FIFO. 


The  second  set  of  records  describes  the  memory 
partitions  of  the  simulated  computer.  The  first  card  lists 
the  number  of  memory  partitions  that  the  system  will  have 
(maximum  of  20  partitions).  The  number  of  memory  partitions 
also  determines  the  multiprogramming  level.  Each  job 
(except  the  job  scheduler)  is  allocated  a  memory  partition 
prior  to  being  released  into  the  execute  queue.  Since  the 
job  scheduler  is  always  core  resident  in  system  memory,  the 
multiprogramming  level  is  one  plus  the  number  of  memory 
partitions.  After  the  number  of  memory  partitions  is 
entered,  the  size  of  each  partition  is  entered  (one  per 
record).  The  size  of  the  memory  partitions  are  entered  in 
terms  of  1024  byte  blocks.  The  order  of  the  memory 
partitions  important.  When  the  job  scheduler  executes  it 
tries  to  fit  the  ^ob  in  the  first  free  memory  partition.  If 
the  partition  is  not  large  enough  it  looks  at  the  next 
partition,  followed  by  the  next,  until  a  partition  of 
sufficient  size  is  found  or  there  are  no  more  available 
partitions.  Because  of  this  searching  algorithm  the 
partitions  should  be  listed  in  ascending  order  by  size.  By 
having  them  listed  in  this  way,  the  smallest  available 
partition  will  be  used  for  each  particular  job.  Also  note, 
if  a  job  requires  more  memory  than  is  available  in  the 
largest  memory  partition,  the  job  will  sit  in  the  hold  queue 
until  the  end  of  the  simulation. 

The  next  set  of  records  define  the  Input/Output 
Controllers  (IOCs).  The  first  record  defines  the  number  of 
controllers  that  the  simulation  will  have.  A  maximum  of 
five  IOCs  can  be  defined  in  any  one  simulation  run.  The 
next  records  specify  the  IOC  name,  the  data  transfer  rate, 
and  the  cost.  The  rate  will  be  in  terms  of  standard  data 
blocks  per  second.  The  data  rate  must  be  specified  as  an 
integer  .umber  of  data  blocks  since  fractions  of  blocks  are 
not  allowed.  The  IOC  data  transfer  rate  is  the  maximum 
number  of  blocks  that  an  IOC  can  handle  from  I/O  devices  at 
one  particular  time.  For  example,  if  an  IOC  with  a  transfer 
speed  of  100  blocks  per  second  is  connected  to  three  devices 
with  device  transfer  speeds  of  40  blocks  per  second,  two  of 
those  devices  could  be  active  simultaneously  with  no  delay, 
while  a  transfer  over  the  third  device  would  have  to  put  in 
the  IOC  queue . 

After  the  definition  of  the  IOCs,  the  I/O  devices  are 
defined.  The  first  group  of  1/0  devices  defined  are 
unal  loca cable  I/J  devices  (disks  and  drums).  The  first 
record  well  specify  the  number  of  unallocated  devices 
(maximum  of  10).  The  following  records  will  define  each 
individual  1/0  device.  The  first  field  is  the  name  of  the 
device.  The  second  field  is  the  data  transfer  rate.  This 
fieli  must  be  specified  in  terms  of  the  amount  of  time  (in 


seconds)  required  to  transfer  a  IK  block  of  data.  The  third 
field  represents  the  cost  of  the  device.  The  last  five 
fields  define  the  connection  of  the  device  with  the  IOCs.  A 
"1“  in  field  1  will  indicate  that  the  device  is  connected  to 
the  the  first  channel,  where  as  a  ”0M  will  indicate  the 
device  is  not  connected  to  the  IOC.  The  next  4  fields 
represent  IOCs  2  through  5,  respectively.  There  must  be  one 
channel  definition  card  for  each  allocatable  device. 

The  next  group  of  I/O  device  definition  cards  define 
the  allocatable  I/O  devices  (tapes).  The  allocatable  I/O 
devices  are  defined  in  exactly  the  same  manner  as  the 
unal iocatable  I/O  devices. 

The  third  type  of  I/O  device  defined  is  the  card 
reader.  The  first  field  is  the  name  of  the  card  reader.  The 
second  and  third  fields  define  the  speed  and  cost  of  the 
card  reader.  The  card  reader's  speed  is  defined  in  terms  of 
cards  read  per  minute.  The  simulation  then  calculates  the 
transfer  rate  by  dividing  the  IK  block  size  by  the  card 
record  size  (80  bytes).  This  result  is  then  truncated  to  an 
integer  and  divided  into  the  card  reader  speed.  The  result 
is  now  in  terms  of  how  long  it  takes  to  load  a  IK  buffer. 
This  result  is  then  multiplied  by  60  to  get  the  transfer 
rate  in  seconds  instead  of  minutes.  The  last  five  fields 
define  the  interface  between  the  reader  and  the  IOCs.  The 
format  for  the  channel  connections  is  the  same  as  the 
unal loca table  devices. 

The  last  I/O  device  defined  is  the  line  printer.  The 
line  printer's  name,  speed,  and  cost  are  represented  by  the 
first  three  fields.  The  line  printer's  speed  is  defined  in 
terms  of  lines  per  minute.  Like  the  card  reader,  the 
transfer  rate  of  the  printer  is  calculated  by  finding  the 
number  of  132  byte  lines  that  can  fit  in  the  IK  buffer  and 
dividing  by  the  number  of  lines  per  minutes.  This  result  is 
then  converted  to  a  transfer  rate  in  terms  of  seconds.  The 
last  five  fields  define  the  channel  connections  in  the  same 
way  as  the  previous  I/O  devices. 


3 . 2  Hardware  and  Software  Monitors 

The  present  configuration  of  the  simulation  requires 
that  the  software  and  hardware  monitors  be  defined  in  the 
CONDES  file.  The  software  monitor  requires  four  cards  to 
define  its  parameters.  A  'Y'  in  the  first  card  tells  the 
simulation  if  the  software  monitor  is  desired.  If  the 
software  monitor  is  desired  then  the  next  three  cards  will 
define  the  monitor's  parameters.  (NOTE:  If  the  software 
monitor  is  not  desired  then  the  next  three  cards  are  not 
inserted  into  the  CONFIG  file  and  the  hardware  monitor  cards 


follow  the  'N'  card  for  the  software  ronitor.)  The  second 
and  third  cards  define  the  starting  ai.S  stopping  time  of  the 
monitor.  These  cards  have  four  fields  which  correspond  to 
the  desired  day,  hour,  minute  and  second  for  the  starting  or 
stopping  time  of  the  monitor.  NOTE:  T:  e  starting  tine  is 

the  time  at  which  the  monitor  is  entered  into  the  hold 
queue.  The  actual  monitor  trace  will  not  start  intil  the 
monitor  is  executed  by  the  cpu.  The  fourth  card  defines  the 
five  queues  which  will  be  monitored.  The  software  monitor 
can  monitor  any  queue  in  the  simulated  system.  The  number 
of  the  desired  queue  is  entered  into  each  of  the  five 
fields.  The  queue  numbers  are  listed  in  Table  4-J.  If  less 
than  five  queues  are  to  be  monitored  any  illegal  queue 
number  can  be  substituted  in  one  of  the  queue  fields. 

The  definition  of  the  hardware  monitor  is  similar  to 
the  software  monitor.  The  first  card  tells  the  simulation 
if  the  hardware  monitor  is  desired.  If  the  monitor  is 
desired  the  next  two  cards  specify  the  starting  and  stopping 
times.  The  last  card  defines  the  two  timer  probes  and  the 
three  counter  probes.  These  probes  can  be  connected  to  the 
cpus,  IOCs  and  I/O  devices.  If  one  or  more  probes  is  not 
desired,  then  an  illegal  probe  connection  point  is  entered 
into  that  probe's  field.  Legal  probe  points  are  listed  in 
Table  4-K. 


3.3 

The  CONDES  file  must  have  the  records  in  the  proper 
format  and  in  the  order  listed  in  Table  4-L.  These  records 
can  be  entered  by  hand  or  they  can  be  generated  by  using  the 
"User"  interface.  The  file  SETUP  provides  this  "USER" 
interface.  This  file  reads  the  hardware  descriptions  from  a 
file  called  TYPES.  From  the  data  provided  by  TYPES,  the 
user  will  be  queried  about  the  types  and  quantities  of 
various  pieces  of  equipment.  From  the  user's  responses  a 
CONDES  file  will  be  generated.  This  file  can  then  be  used 
as  input  to  the  simulation.  Figure  4  shows  the  PROCFIL  used 
to  execute  the  "User"  interface.  The  file  TYPES  must  be 
stored  on  disk  prior  to  its  being  called.  Typically  the 
instructor  will  control  the  TYPES  file.  He  would  list  all 
the  scenario  hardware  in  this  file.  By  controlling  the 
file,  the  students  can  choose  only  "legal"  pieces  of 
equipment  from  which  to  define  their  system.  The  format  for 
the  TYPES  file  is  listed  in  Table  5-A  through  5-F.  The 
order  of  the  cards  must  be  as  specified  in  Table  5-G. 

Figure  6  illustrates  the  contents  of  a  typical  CONDES  file 
generated  by  SETUP  using  the  TYPES  file  listed  in  Figure  5. 


Table  4-A  CONFIGURATION  INPUT; 
CPU  CARDS 


NUMBER  OF  CPUS 

CARD 

FIELD 

VARIABLE 

FORMAT 

COMMENT  5 

1 

Num  of  CPUs 

12 

CPU 

DESCRIPTION 

CARD 

FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Name  of  CPU 

A  2  0 , 1 X 

2 

CPU  Ratio 

FI0.4,  IX 

Relative  CPU 
. 5  twi ce  as 

speed, 
fast  as 

1  .  i 

3 

CPU  Cost 

F8.2, IX 

Cost  of  each 

CPU  in 

$• 

CPU 

TIME  SLICE 

CARD 

FIELD 

VARIABLE 

FORMAT 

COMMENTS 

.'.V 


Table  4-B  CONFIGURATION  INPUT; 
MEMORY  CARDS 

NUMBER  OF  MEMORY  PARTITIONS 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Number  of 
Partitions 

12 

Maximum  of 
parti tions 

20  memory 

MEMORY  PARTITION 

SIZE  CARD 

(One  for 

Each  Partition) 

FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Name  of 

Parti tion 

A20, IX 

2 

Partition 

Size 

F 1 0 . 4 

Size 

byte 

in  terms  of  1024 
blocks 

quantum. 


& 


i 


kt 


E-33 


1  -  ' 


Table  4-C  CONFIGURATION  INPUT; 
CHANNEL  CARDS 


NUMBER  OF  CHANNELS 

FIELD  VAR IA B  LE  F OR MAT  COMMENTS 


1  Number  of  12  Maximum  of  5  channels 

Channels 


CHANNEL  DESCRIPTION  CARD  (One  per  Channel) 


FIELD  VARIABLE  FORMAT  COMMENTS 


Name  of  A20.1X 

Channel 

Channel  Data  F10.4.1X  Number  of  IK  blocks 
Rate  channel  can  transfer  in 

in  one  second  . 


Channel  Cost 


F8. 2  ,  IX 


Cost  of  channel  in  $ 


Table  4-D  CONFIGURATION  INPUT 
DISK  CARDS 


NUMBER  OF  DISKS 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Number  of 
Disks 

12 

Maximum  of  10  disks 

DISK  DESCRIPTION  CARD 

(One  per  Disk) 

FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Name  of 

Disk 

A20, IX 

2 

Disk  Da  ta 
Rate 

F10. 4, IX 

Time  in  seconds  to 
transfer  a  IK  block  of 
data. 

3 

Disk  Cost 

F8 . 2,  IX 

Cost  of  disk  in  $ . 

4 

Channel  1 
Connect  ion 

11  ,  IX 

1  indicates  disk  con¬ 
nected  to  channel  1 

5 

Channel  2 
Connect  ion 

11  ,  IX 

1  indicates  disk  con¬ 
nected  to  channel  2 

6 

Channel  3 
Connect  Ion 

11  ,  IX 

1  indicates  disk  con¬ 
nected  to  channel  3 

7 

Channel  4 
Connect  Ion 

11  ,  IX 

1  indicates  disk  con¬ 
nected  to  channel  4 

8 

Channel  5 
Connect  Ion 

11  ,  IX 

1  indicates  iisk  con¬ 
nected  to  channel  5 

FIELD 


Table  4-E  CONFIGURATION  INPUT 
TAPE  CARDS 

NUMBER  OF  TAPES 


VAR IABLE 


Number  of 
Tapes 


FORMAT  COMMENTS 


12  Maximum  of  10  tapes 


TAPE  DESCRIPTION  CARD  (One  per  Tape) 


FIELD 


VARIABLE 


FORMAT 


COMMENTS 


Name  of 

Ta  pe 

A20, IX 

Tape  Data 
Rate 

F 1 0 . 4,  IX 

Time  in  seconds  to 
transfer  a  IK  block  of 
data. 

Tape  Cost 

F8.2,  IX 

Cost  of  tape  in  $. 

Channel  1 
Connect  ion 

11 ,  IX 

1  indicates  tape  con¬ 
nected  to  channel  1 

Channel  2 
Connect  ion 

11  ,  IX 

1  indicates  tape  con¬ 
nected  to  channel  2 

Channel  3 
Connect  ion 

11  ,  IX 

1  indicates  ta ’e  con¬ 
nected  to  channel  3 

Channel  4 
Connect  ion 

11  ,  IX 

1  indicates  tape  con¬ 
nected  to  channel  4 

Channel  5 
Connect  ion 

11  ,  IX 

1  indicates  tape  con¬ 
nected  to  channel  5 

Table  4-F  CONFIGURATION  INPUT 
CARD  READER  DESCRIPTION  CARD 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Name  of 

Card  Reader 

A2  0,  IX 

2 

Card  Reader 
Data  Rate 

F10. 4  ,  IX 

Number  of  cards  read 
per  minute 

3 

Card  Reader 
Cost 

F8 . 2 , IX 

Cost  of  reader  in  $. 

4 

Channel  1 
Connect  ion 

11 ,  IX 

..  1  indicates  connected 
to  channel  1 

5 

Channel  2 
Connect  ion 

11  ,  IX 

1  indicates  connected 
to  channel  2 

6 

Channel  3 
Connect  ion 

11 ,  IX 

1  indicates  connected 
to  channel  3 

7 

Channel  4 
Connect  ion 

11  ,  IX 

1  indicates  connected 
to  channel  4 

8 

Channel  5 
Connection 

11 ,  IX 

1  indicates  connected 
to  channel  5 

Table  4-G  CONFIGURATION  INPUT 
LINE  PRINTER  DESCRIPTION  CARD 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Name  of 

Line  Printer 

A20 , IX 

2 

Line  Printer 
Data  Rate 

F10. 4 , IX 

Number  of  line  printed 
per  minute 

3 

Line  Printer 
Cost 

F8 . 2  ,  IX 

Cost  of  printer  in  $. 

4 

Channel  1 
Connection 

11  ,  IX 

1  indicates  connected 
to  channel  1 

5 

Channel  2 
Connection 

11  ,  IX 

1  indicates  connected 
to  channel  2 

6 

Channel  3 
Connect  ion 

11  ,  IX 

1  indicates  connected 
to  channel  3 

7 

Channel  4 
Connection 

11  ,  IX 

1  indicates  connected 
to  channel  4 

8 

Channel  5 
Connection 

11 ,  IX 

1  indicates  connected 
to  channel  5 

E-38 


Stopping  minute  of  run 
Stopping  second  of  run 


E-39 


Table  4-H  CONFIGURATION  INPUT; 
SOFTWARE  MONITOR  CARDS  (Conrinued) 


SOFTWARE  MONITOR  QUEUE  CARD 
(Required  if  H/W  Monitor  Card  is  'Y') 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Que  ue 

#i 

12  ,  IX 

First  queue  to 
monitored.  See 

be 

Table 

4-J 

2 

Que  ue 

in 

12  ,  IX 

Second  queue  to 
moni tor ed .  See 

be 

Table 

4  -  J 

3 

Queue 

a 3 

12  ,  IX 

Third  queue  to 
monitored.  See 

be 

Table 

4-J 

4 

Que  ue 

#4 

12  ,  IX 

Fourth  queue  to 
moni to  red .  See 

be 

Ta  ble 

4-J 

5 

Queue 

#5 

12  ,  IX 

Fifth  queue  to 
monitored .  See 

be 

Table 

4-J 

y? 


£ 

Table  4-1  CONFIGURATION  INPUT; 
HARDWARE  MONITOR  CARDS 


HARDWARE  MONITOR  EXECUTION  CARD 


C\ 


;%■ 

FIELD 

VARIABLE 

FOR:-. \T 

COMMENTS 

i 

1 

H/W  Monitor 

A  1 

'  Y'  indicates 

that  the 

Desired 

monitor  is  cesired. 

'N'  indica  tes 

not 

desired . 

HARDWARE  MONITOR  START  UP  CARD 
(Required  if  H/W  Monitor  Card  is  "Y") 


I  «r 


i 

j 

■N.' 


H 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Starting 

Day 

T22, 14, IX 

Starting 

day  of 

run . 

2 

Starting 

Hour 

14,  IX 

Starting 

hour  of 

run  . 

3 

Starting 

Min. 

14,  IX 

Starting 

minute 

of  run 

4 

Starting 

Sec . 

F8 . 4 

Starting 

second 

of  run 

HARDWARE  MONITOR  TERMINATION  CARD 
(Required  if  H/W  Monitor  Card  is  'Y') 

FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Stopping 

Day 

T22, 14, IX 

Stopping 

day  of 

run  . 

2 

Stopping 

Hour 

14  ,  IX 

Stopping 

hour  of 

run  . 

3 

Stopping 

Min. 

14,  IX 

Stopping 

minute 

of  run 

4 

Stopping 

Sec. 

F8 . 4 

Stopping 

second 

of  run 

Table  4-1  CONFIGURATION  INPUT; 
HARDWARE  MONITOR  CARDS  (Continue) 

HARDWARE  MONITOR  SAMPLE  RATE  CARD 
(Required  if  H/W  Monitor  Card  is  'Y') 


FIELD  VARIABLE _ FORMAT _ COMMENTS _ 

1  Sampler  Rate  T22.F10.4  How  ofter  the  monitor 

will  record  data  and 
clear  counter  and  timers 


HARDWARE  MONITOR  PROBE  CARD 
(Required  if  H/W  Monitor  Card  is  'Y") 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Time  r 

#1 

12  ,  IX 

First  timer  probe  con¬ 
nection.  See  Table  4-K 

2 

Time  r 

#2 

12  ,  IX 

Second  timer  probe  con¬ 
nection.  See  Table  4-K 

3 

Coun  t 

It  1 

12  ,  IX 

First  counter  probe  con¬ 
nection.  See  Table  4-K 

4 

Count 

#2 

12  ,  IX 

2nd  counter  probe  con¬ 
nection.  See  Table  4-K 

5 

Count 

It  3 

12  ,  IX 

Third  counter  probe  con¬ 
nection.  See  Table  4-K 

QUEUE  // 


Table  4-J  CONFIGURATION  INPUT 
SOFTWARE  MONITOR  QUEUES 


UEUE  NAME 


QUEUE  9 


QUEUE  NAME 


INPUT 

2  . 

HOLD 

EXEC 

4. 

OUTPUT 

TAPE 

1 

12. 

TAPE 

2 

TAPE 

3 

14. 

TAPE 

4 

TAPE 

5 

16. 

TAPE 

6 

TAPE 

7 

18  . 

TAPE 

8 

TAPE 

9 

20. 

TAPE 

10 

DISK 

1 

22. 

DISK 

2 

DISK 

3 

24. 

DISK 

4 

DISK 

5 

26. 

DISK 

6 

DISK 

7 

28. 

DISK 

8 

DISK 

9 

30. 

DISK 

10 

CHAN 

1 

32  . 

CHAN 

2 

CHAN 

3 

34. 

CHAN 

4 

CHAN 

5 

NO  QUEUE  DESIRED 

Table  4-K  CONFIGURATION  INPUT; 
HARDWARE  MONITOR  PROBE  POINTS 


QUEUE  # 

QUEUE  NAME 

QUEUE  9 

QUEUE 

1  . 

CPU 

2  . 

READER 

3. 

PR  INTER 

1 1 . 

TAPE  1 

12. 

TAPE  2 

13. 

TAPE  3 

14. 

TAPE  4 

15. 

TAPE  5 

16. 

TAPE  6 

17. 

TAPE  7 

18. 

TAPE  8 

19. 

TAPE  9 

20. 

TAPE  10 

21. 

DISK  1 

22. 

DISK  2 

23. 

DISK  3 

24. 

DISK  4 

25. 

DISK  5 

26. 

DISK  6 

27. 

DISK  7 

28. 

DISK  8 

29. 

DISK  9 

30. 

DISK  10 

31. 

CHAN  1 

32  . 

CHAN  2 

33. 

CHAN  3 

34. 

CHAN  4 

35. 

CHAN  5 

36. 

NO  DEVICE 

DESIRED 

ir 


NAME 


Table  4-L  CONFIGURATION  IN  'UT 
ORDER  OF  INPUT  CARDS 


CARD  NAME _ COMMENTS _ 

NUMBER  OF  CPUS 
CPU  DESCRIPTION 
CPU  TIME  SLICE 
NUMBER  OF  PARTITIONS 

MEMORY  PARTITION  SIZE  ONE  PER  PARTITION 
NUMBER  OF  CHANNELS 

CHANNEL  DESCRIPTION  ONE  PER  CHANNEL 

NUMBER  OF  DISKS 

DISK  DESCRIPTION  ONE  PER  DISK 

NUMBER  OF  TAPES 

TAPE  DESCRIPTION  ONE  PER  TAPE 

CARD  READER  DESCRIPT. 

LINE  PRINTER  DESCRIPT. 

S/W  MONITOR  EXECUTION 

S/W  MONITOR  START  UP  MANDITORY  IF  EXECUTION  WAS 

INDECATED  BY  'Y'  IN  EXECUTION  CARD 

S/W  MONITOR  MANDITORY  IF  EXECUTION  WAS 

TERMINATION  INDICATED  BY  "Y"  IN  EXECUTION  CARD 

S/W  MONITOR  QUEUE  MANDITORY  IF  EXECUTION  WAS 

INDICATED  BY  'Y'  IN  EXECUTION  CARD 

H/W  MONITOR  EXECUTION 

H/W  MONITOR  START  UP  MANDITORY  IF  EXECUTION  WAS 

INDICATED  BY  'Y'  IN  EXECUTION  CARD 
H/W  MONITOR  MANDITORY  IF  EXECUTION  WAS 

TERMINATION  INDICATED  BY  'Y'  IN  EXECUTION  CARD 

H/W  MONITOR  SAMPLE  M  .  NDITORY  IF  EXECUTION  WAS 

RATE  INDICATED  B'  'Y'  IN  EXECUTION  CARD 

H/W  MONITOR  PROBE  MANDITORY  IF  EXECUTION  WAS 

INDICATED  BY  ' Y'  IN  EXECUTION  CARD 


Table  5-B  TYPES  INPUT; 
TAPE  CARDS 


NUMBER  OP  TAPE  TYPES 


FIELD 

VARIABLE 

FORMAT 

_ COMME  NTS 

1 

Number  of 

12 

Tape  Types 


TAPE  DESCRIPTION  CARD  (One  Per  Type) 


FIELD _ VARIABLE  FORMAT  COMMENTS 


1  Name  of  A20,  IX 

Tape 

2  Tape  Data  F10.4,1X  Time  in  seconds  to 

Rate  transfer  a  IK  block  of 

data  . 


Tape  Cost 


F8 . 2 , IX 


Cost  of  tape  in  $ 


Table  5-C  TYPES  INPUT; 
CHANNEL  CARDS 

NUMBER  OF  CHANNEL  TYPES 


FIELD  VARIABLE  FORMAT  COMMENTS 


1  Numberof  12 

Channel  Type  s 


CHANNEL  DESCRIPTION  CARD  (One  Per  Type) 


FIELD  VARIABLE  FORMAT  COMMENTS 


1  Name  of  A20, IX 

Channel 


2 


Channel  Data  F10.4,1X  Number  of  IK  blocks 
Rate  channel  can  transfer  in 

in  one  second  . 


3 


Channel  Cost 


F8 . 2 , IX 


Cost  of  channel  in  $ 


II 


1 


1 

»  *t 

I 


r: 


Table  5-E  TYPES  INPUT; 
LINE  PRINTER  CARDS 


NUMBER 

OF  LINE 

PRINTER  TYPES 

FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Number  of 

12 

Printer  Types 

LINE  PRINTER  DESCRIPTION  CARD  (One  Per  Type) 


FIELD 

VARIABLE 

FORMAT 

COMMENTS 

1 

Name 

Line 

of 

Printer 

A20, IX 

2 

Line 

Data 

Printer 

Rate 

F10.4, IX 

Number  of  lines  printed 
per  minute 

3 


Line  Printer  F8.2.1X  Cost  of  printer  in  $. 
Cost 


(.;■ . 
p.'- 


p\ 

k.- 

LV 


I.V 

I  *.• 


E-50 


& 


-  *■  «,  “  _  »  rn  "  «  «  '  _«■_  •  _  •  .  ■«  »  ' 

1  A.  t  B  H  ■  «^r B  ■>  bA  B  ■  -  «■*.  V^t*. 


J 


Table  5-G  TYPES  INPUT 
ORDER  OF  INPUT  CARDS 


CARD  NAME _ COMMENTS  _ 

NUMBER  OF  DISK  TYPES 

DISK  DESCRIPTION  One  Per  Type 

NUMBER  OF  TAPE  TYPES 

TAPE  DESCRIPTION  One  Per  Type 

NUMBER  OF  CHANNEL  TYPES 

CHANNEL  DESCRIPTION  One  Per  Type 

NUMBER  OF  READER  TYPES 

CARD  READER  DESCRIPTION  One  Per  Type 

NUMBER  OF  PRINTER  TYPES 

LINE  PRINTER  DESCRIPTION  One  Per  Type 

NUMBER  OF  CPUS 


CPU  DESCRIPTION 


One  Per  Type 


.  PROC .SETUP. 

ATTACH, TYPES. 

REWIND, TYPES. 

ATTACH, SETUP. 

REQUEST, CONFIG, *PF. 

FTN5, I  =  S  ETU  P , L0  =  0 ,ANS 1  =  0 , DB  . 

CONNECT, INPUT, OUTPUT. 

LGO. 

CATALOG, CONFIG, CONFIG, RP“999. 

RETURN, TYPES, SETUP, INPUT , 0 UTP UT , CO NF I G . 


Interface  Procfil 


DISK  1 

0.0328 

1000.00 

DISK  2 

0.0656 

500.00 

DRUM  1 

1 

TAPE  1 

9 

.0108 

3000.00 

0. 072  5 

250.00 

4 

CHANNEL  1 

500.00 

1100.00 

CHANNEL  2 

200.00 

620.00 

2 

CARD  READER 

1 

80.00 

30.40 

CARD  READER 

9 

2 

1000.00 

400.00 

4 

PRINTER  2 

1000.00 

500.00 

LASER  PRINTER 

O 

4000.00 

3000.00 

CPU  1 

1.00 

1110.00 

CPU  2 

.  95 

4000.00 

Fig  5.  Typical  TYPES  File 


E-54 


2 


CPU  1 

1 . 0000 

1110.00 

TIME  SLICE 

C 

1.0000 

J 

PARTITION 

1 

4 . 0000 

PARTITION 

2 

100.0000 

PARTITION 

3 

100.0000 

PARTITION 

4 

200.0000 

PARTITION 

5 

700.0000 

z 

CHANNEL  2 

200.0000 

620.00 

CHANNEL  1 

500.0000 

1100.00 

Z 

DISK  2 

.0656 

500.00 

1 

1 

0 

0 

0 

DRUM  1 

.0108 

3000.00 

0 

1 

0 

0 

0 

TAPE  1 

.0725 

250.00 

1 

1 

0 

0 

0 

CARD  READER 

2 

1000.0000 

400.00 

1 

0 

0 

0 

0 

LASER  PRINTER 

\r 

4000.0000 

3000.00 

1 

0 

0 

0 

0 

X 

S/W  MONITOR 

START 

0  12 

0  0. 

0000 

S/W  MONITOR 

STOP 

2  0 

0  0. 

0000 

3  1  11  31 

36 

N 


Fig  6.  Typical  CONDES  File 


4 . 0  Simulation  Execution 

With  the  WRKDES  and  CONDES  files  available,  the 
actual  simulation  can  be  run.  Section  5  discusses  the 
simulation  output.  However,  since  the  output  files  must  be 
cataloged  as  part  of  the  execution  run  and  are  typically 
printed  at  that  time,  the  JCL  associated  with  the  simulation 
output  is  presented  in  this  section. 

4 . 1  File  Storage 

In  order  to  allow  students  to  develop  and  use 
software  data  analysis  tools,  the  out  ut  files  from  the 
simulation  should  be  stored  as  perm  fles.  This  output 
consists  of  three  files  for  each  student  group.  Because  of 
directory  limitations  under  NOS-BE,  the  following  approach 
is  suggested  to  prevent  loss  of  the  simulation  output  due  to 
a  full  directory.  A  dummy  perm  file  is  created  for  each 
student  group  before  the  simulation  run.  Note  that  each 
could  specify  its  own  protection  password  at  this  point  if 
such  security  were  felt  to  be  needed.  Then  at  the  end  of 
the  simulation  run,  the  output  files  are  cataloged  as  cycles 
2,  3,  and  4  of  this  dummy  file.  Typically  a  retention  time 
of  5  days  might  be  specified.  This  accomplishes  two  things. 
First,  it  is  necessary  to  delete  cycles  2,  3,  and  4  before 
the  next  run,  as  the  cyber  is  limited  to  five  cycles  of  any 
filename.  Second,  it  forces  the  students  to  decide  what 
data  is  really  worth  saving  in  machine  form,  copying  and 
saving  those  files  themselves,  and  allowing  unused  data  to 
leave  the  system.  Figure  7  shows  the  JCL  to  create  dummy 
files  for  three  student  groups. 


4 . 2  Simulation  Execution 

The  JCL  for  a  simulation  run  is  shown  in  Figure  8. 

It  is  necessary  to  attach  the  network  portion  of  the  model 
(SIMS),  the  discrete  portion  of  the  model  (SIMF),  as  well  as 
the  CONDES  file  and  the  EVSTR  file.  In  order  to  record  data 
to  the  accounting  file,  the  hardware  monitor  file,  and  the 
software  monitor  file,  three  files  have  to  be  requested  for 
permanent  file  space.  After  the  execution  of  the  model,  the 
three  files  will  be  permanently  stored  on  the  disk.  The 
data  is  now  ready  for  further  data  reduction. 


Typically  (in  the  CPE  coarse)  one  run  is  made  per 
week.  During  the  first  few  weeks,  only  one  run  per  class  is 
made  while  the  students  gather  sufficient  data  for  decision 
making.  Once  the  students  want  to  change  the  configuration, 
or  look  at  different  variables  with  the  monitors,  then  a 
separate  run  is  required  for  each  group.  Because  of  the  run 
times  involved,  the  running  of  the  program  should  be  done  by 
the  ins  true  to  r . 


4.3  Modifying  the  Simulation  Run  Time 

The  simulation  is  presently  set  up  to  run  from  0  to 
600,000  seconds  of  simulated  time  (approximately  7  days). 

If  it  is  desired  to  run  the  simulation  at  sum  other  amount 
of  time  then  the  file  SIMS  has  to  be  modified.  The  only 
card  that  has  to  be  modified  is  the  "INIT"  card,  which  is 
the  third  card  from  the  end  of  the  file.  The  INIT  card  has 
the  following  format: 

INIT, start-time, stop-time; 

where  start-time  and  stop-  ime  are  real  variables 
representing  the  precise  second  that  the  simulation  is  to 
start  and  stop. 


CP4.STCSB.  T780510,  HARTRUM,  53450 
REQUEST,  A,  *PF. 

REQUEST,  B,  *PF. 

REQUEST,  C,  *  PF  . 

COPYCR,  INPUT,  A. 

COPYCR,  INPUT,  B. 

COPYCR,  INPUT,  C. 

CATALOG  ,  A  ,  GROUP1,ID  =  EE752,RP  =  90,XR=*XXX. 
CATALOG, B .GR0UP2 ,ID-EE752,RP=90,XR»XXX. 
CATALOG.C .GR0UP3 ,ID=EE752,RP=90,XR=XXX. 
*EOR 

GROUP  1  DATA. 

*E  OR 

GROUP  2  DATA. 

*E  OR 

GROUP  3  DATA. 

*E  OR 
*E  OF 


Fig  7.  Cyber  JCL  to  Load  Dummy  Files 


OWE, T70, 10200, CM220000.  T8 3 06 1 7 , OW E N , 5 5 5 3 3 

ATTACH , PROC , SLAM PR OC , ID»AFIT, SN=AFIT. 

ATTACH, SIMS, SIMS. 

ATTACH, SIMF.SIMF. 

ATTACH, TAPE  1 1 , TAPE  1 1 . 

REQUEST, TAPE  1 2 , *  PF . 

REQUEST, TAPE13,*PF.  | 

REQUEST, TAPE14, *PF . 

ATTACH, TAPE  I  5, CONFIG. 

FTN5  (  I=»SIMF,ANSI=0)  . 

BEGIN, S  LA MI I , PR  OC , M*LGO , PMD  =  1 , PL=1 GOO 0 , MAP =PAR T , I=SIMS.; 
CATALOG, TAPE  12 ,ACTLOG.  j 

CATALOG, TAPE13, HRDMON.  j 

CATALOG , TAPE  14 , SFTMON.  j 

*E  OR 
*E  OF 


5 . 0  Simula t ion  Ou  t put 


There  are  three  basic  output  files  generated  by  SIMS 
and  SIMF.  This  section  briefly  addresses  these  three  files. 


5 . 1  Accounting  Data 


The  accounting  data  is  generated  directly  by  every 
run  of  the  simulation.  This  file  is  under  the  local 
filename  of  TAPEL2.  There  is  one  record  far  each  job  that 
has  gone  through  the  system.  The  record  content  and  format 
is  listed  in  Table  6.  At  the  end  of  the  simulation  the 
local  accounting  file  (TAPE12)  is  cat  iloged  as  ACTLOG.  The 
file  is  now  ready  for  post  processing  by  the  student. 


5.2  Software  Monitor  Data 


Software  monitor  data  is  generated  only  if  the 
CONDES  file  has  requested  the  software  monitor.  The  monitor 
records  the  length  of  time  a  job  spends  in  a  queue,  where 
the  job  came  from  and  where  the  job  is  going  after  exiting 
the  queue.  The  monitor  will  record  the  data  for  all  the 
jobs  that  go  through  the  five  queues  specified  in  the  CONDES 
file.  The  software  monitor  file  will  be  cataloged  as  SFTMON 
at  the  end  of  the  simulation  run.  The  record  content  and 
format  is  listed  in  Table  7. 


5 . 3  Hardware  Monitor  Data 

Hardware  monitor  data  is  generated  only  if  the 
CONDES  file  has  requested  the  hardware  monitor.  The 
hardware  monitor  records  the  amount  of  time  that  a  timer 
probe  was  energized,  ar.d  the  number  of  times  that  a  counter 
probe  was  energized.  The  counters  and  timers  are  reset 
after  every  hardware  monitor  sample  rate  cycle.  At  the  end 
of  the  simulation  the  file  is  cataloged  as  HR DMO N .  The 
record  content  and  format  is  listed  in  Table  8. 


e  6  ACTLOG  Record  Format 


r 


FIELD  VARIABLE 


FORMAT 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 


Arr iva 1  Time 

1  X , F 1 5 . 4 , IX 

Job  Name 

F10.0, IX 

CPU  Time 

F5. 0, IX 

Memo  ry 

F5 . 0, IX 

Priority 

F5 . 0 ,  IX 

Alloc.  Devices 

F  5 . 0 , 1  X 

Cards 

F6. 0, IX 

Lines 

F6 . 0 ,  IX 

Disk  BIocks 

F6 . 0 ,  IX 

Alloc.  Device  Blocks 

F6 . 0, IX 

Job  Type  (Note  1) 

F2 . 0,  IX 

CPU  Time  Used 

F 1 0 . 3 , IX 

I/O  Time  Used 

F 1 0 . 3 ,  IX 

Memory  Size  Used 

F 1  0 . 3, IX 

Departure  Time 

F15.4 

Note  1  : 


ACTLOG  only  records  user  jobs  so  Job  Type  Is 
always  1.0. 
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Table  7  SFTMON  Record  Format 


FIELD 

VARIABLE 

FORMAT 

1 

Queue  Name 

1 X , A  1  5  ,  IX 

2 

Time  in  Que u e 

F8 . 3  ,  IX 

3 

Where  Job  Came  From 

A1 5 ,  IX 

4 

Where  Job  is  Going 

A 1  5 
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CPESIM  II 
Student  Manual 

I .  Introduction 

CPESIM  II  consists  of  a  simulation  of  a  major 
computer  system  and  its  operating  environment.  It  was 
designed  for  use  as  a  laboratory  aid  to  allow  students  to 
apply  Computer  Performance  Evaluation  (CPE)  tools  and 
techniques  to  a  "real"  computer  system.  The  use  of  an 
actual  system  for  such  studies  is  impractical  for  several 
reasons.  First,  due  to  the  overhead  and  disruption  caused 
by  some  measurement  tools,  their  use  in  a  real  system  for 
classroom  purposes  may  be  prohibited  by  computer  center 
personnel.  Second,  if  measurement  data  is  available  it  may 
not  be  academically  useful.  That  is,  the  system  may  be 
operating  as  it  should  (thus  providing  no  problem  solving 
opportunities),  or  it  may  contain  several  interacting 
problems  which,  although  realistic,  cannot  practically  be 
resolved  by  a  student  as  a  one-quarter  course  project. 
Third,  if  the  data  does  allow  the  student  to  analyze  a 
problem  and  recommend  a  solution,  it  is  unlikely  that  the 
computer  center  will  allow  the  implementation  of  the 
solution  (or  of  several  conflicting  solutions  from  several 
students).  CPESIM  II  solves  these  constraints  be  providing 
a  simulated  environment  in  which  the  student  can  gather 


whatever  data  is  desired,  analyze  the  data  and  recommend  a 
solution,  implement  the  solution  (at  an  appropriate  cost), 
and  then  analyze  the  modified  system  to  verify  whether  or 
not  the  solution  was  effective. 

CPESIM  II  consists  of  two  parts.  The  heart  of 
CPESIM  II  is  a  computer  simulation  (written  in  SLAM)  of  a 
large-scale  computer  system  processing  a  workload,  which 
executes  on  a  host  machine  (e.g.,  the  CYBER).  Because  it  is 
a  simulation,  there  are  many  s i - pi i f ica tions  and  limitations 
which  restrict  its  representation  of  reality.  The  second 
part  of  CPESIM  II  is  a  simulated  operating  environment  for 
the  computer  system.  This  includes  a  computer-generated 
workload,  a  written  scenario,  budgetary  constraints,  and 
system  data  in  a  form  that  can  be  manipulated  and  analyzed 
by  the  student,  playing  the  part  of  a  CPE  analyst  and/or  DP 
manager . 

The  written  scenario  provides  the  student  with 
operating  details  about  the  particular  computer  installation 
he  or  she  is  to  investigate.  The  Instructor  configures  the 
hardware,  operating  system,  and  workload  to  illustrate  a 
particular  problem  or  situation.  Measurement  data  is  then 
provided  to  the  student  as  requested  for  analysis  and 
decision  making  on  a  periodic  basis  (e.g.,  weekly).  In 
order  to  force  the  student  analyst  to  make  tradeoffs,  only  a 


subset  of  the  available  data  can  be  accessed  during  a  given 
period,  and  an  appropriate  cost  is  associated  with  each 
student  request. 

CPESIM  II  Output  To  Students 

Many  types  of  information  are  available  to  the 
student  to  aid  in  the  analysis.  Some  of  these  are  free  and 
automatic.  Some  must  specifically  be  requested.  There  is  a 
cost  associated  with  many.  Some  are  mutually  exclusive. 

The  student  must  choose  what  data  he  wants  and  how  he  wants 
to  use  it.  This  section  briefly  describes  the  outputs 
available  and  directs  the  student  to  further  information. 

Manufacturer's  Data  -  Literature  (of  varying  value) 
describing  hardware  and  software  features  is  available  in 
printed  form. 

Installation  Documentation  -  In-house  documentation 
of  the  local  configuration,  parameter  values,  modifications, 
problems,  etc.,  may  be  available  in  printed  form.  These  are 
specific  to  a  given  problem  and  will  be  provided  as  a 
separate  handout. 

Accounting  System  Data  -  The  computer's  accounting 
system  files  are  available  at  no  cost  to  the  student  as  disk 
files  on  the  host  computer.  Such  data  Is  in  raw  form,  and 
the  format  is  defined  in  the  manufacturer's  literature  for 
the  appropriate  operating  system. 

Hardware  Monitor  -  A  hardware  monitor  exists  for  the 


simulated  computer.  However,  such  a  monitor  may  have  to  be 
purchased  or  leased.  Particular  probe  points  and  sampling 
periods  must  be  specified  by  the  student.  As  with  a  real 
hardware  monitor,  there  is  no  effect  on  system  performance. 
The  output  data  is  available  as  a  disk  file  on  the  host 
computer . 

Software  Monitor  -  A  software  monitor  is  available 
for  the  simulated  computer.  However,  it  may  have  to  be 
purchased  or  leased.  As  with  real  software  monitors,  these 
monitors  require  memory,  runtime,  and  other  system  overhead 
to  operate.  Output  data  is  available  as  disk  files  on  the 
host  computer. 

Budget  Reports  -  Periodic  written  summaries  of  the 
dollars  spent  will  be  available  to  the  analyst. 

Student  Inputs  to  CPESIM  II 

One  of  the  advantages  of  a  simulation  is  that  the 
students  can  make  changes  to  the  system.  Thus,  there  are  a 
number  f  inputs  that  the  student  may  (or  must)  provide  to 
CPESIM  II  (as  well  as  some  that  he  cannot).  This  section 
briefly  describes  the  CPESIM  II  inputs  available  to  the 
s  tudent . 

Workload  -  Students  have  no  control  over  the 
workload.  The  instructor  does  control  the  workload  and  may 
choose  to  vary  it  as  the  situation  dictates  (e.g.,  in 
response  to  a  student  initiated  "user  education  program"). 


Interview  Requests  -  Student  analysts  can  submit 
written  questions  to  installation  personnel.  Questions  may 
or  may  not  be  answered.  Charges  for  personnel  time  spent 
answering  questions  will  be  assessed  to  the  student's 
account . 

Monitor  Purchase  -  ’tudent  analysts  can  submit 
purchase  orders  for  the  purchase  of  lease  of  any  available 
hardware  or  software  monitors. 

Monitor  Input  Parameters  -  If  the  software  monitor 
is  desired  then  the  students  must  provide  the  simulation  the 
starting  time,  stopping  time,  and  the  queues  to  be 
monitored.  If  the  hardware  monitor  is  chosen  then  the 
starting  time,  stopping  time,  sample  rate,  counter  probes, 
and  timer  probes  must  be  specified.  The  student  can  input 
these  parameters  by  using  the  "User"  interface  while  making 
the  configuration  file. 

Reconfiguration  Requests  -  Students  may  request 
reconfiguration  of  existing  hardware  and  operating  system 
parameters.  Personnel  costs  to  reconfigure  will  be 
assessed.  Degradation  of  system  performance  because  of  such 
changes  will  be  frowned  upon  by  installation  management. 

Purchase  of  System  Options  -  Additional  hardware  or 
operating  system  modules  may  be  purchased  by  submitting  an 
appropriate  purchase  order.  Costs  will  be  assessed  directly 
to  the  student  account.  Information  on  current  cost  and 


availability  will  be  provided  with  each  particular  project. 

Personnel  Hiring  -  Requests  for  hiring  additional 
installation  personnel  (e.g.,  for  an  additional  shift)  or 
for  overtime  authorization  may  be  submitted.  If  approved, 
costs  will  be  assessed  directly  to  the  student  account. 

Student  Inpu t  for  Grading 

Of  course,  choice  of  grading  technique  is  the 
prerogative  of  each  individual  instructor.  However,  this 
section  describes  one  set  of  student  inputs  that  may  be  used 
for  that  purpose. 

Final  Report  -  This  represents  the  single  most 
important  input  to  the  student's  final  grade.  The  report 
should  be  typewritten  with  drawings,  tables,  and  graphs  of 
professional  quality.  The  report  should  consist  of  two 
parts.  Part  1  is  the  Analyst's  Report.  This  should  include 
a  clear  statement  of  the  problem  as  perceived,  a  systems 
analysis  and  description,  stated  hypothesis  of  the  specific 
problem,  analysis  done  to  confirm  (or  deny)  the  hypothesis, 
recommended  solution,  and  verification  that  the  implemented 
solution  solved  the  problem.  Also,  included  should  be  a 
cost  analysis  and  recommendations  for  the  future.  Part  II 
is  the  Student's  Critique.  This  should  include  in 
evaluation  of  the  simulation  as  a  learning  tool  along  with  a 
discussion  of  problems  encountered  and  recommended  changes. 

Interim  Reports  -  Various  interim  reports  may  be 
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required  throughout  the  quarter,  depending  on  the  scenario. 
These  should  be  of  the  same  quality  as  the  final  report  and 


will  count  toward  the  project  grade. 

Software  Tools  -  Some  specific  software  tools  (e.g. 
data  reduction  packages)  may  be  required  during  the  uarter 
These  will  specifically  count  toward  the  project  grade.  Fo 
any  other  tools  that  the  student  might  develop,  the  source 
code  should  also  be  submitted.  These  programs  will 
influence  the  project  grade. 

Oral  Presentation  -  Each  team  will  be  required  to 
make  a  final  oral  presentation  to  the  class  and  possibly  an 
interim  report  as  well.  Although  an  important  purpose  of 
the  oral  report  is  to  shfe  each  team's  analysis  and 
findings  with  the  rest  the  class,  presentation  is  a 
graded  part  of  the  project  and  should  be  done  in  a 
professional  manner. 


II.  American  Business  Computer  (ABC_) 

BITBUCiCET  Computer  System 

Introduction  to  the  ABC  Co mput  e  r 

The  ABC  computer  system  was  designed  to  provide 
flexiblity  in  providing  custom  computing  power  to  any 
organization.  This  system  consists  of  a  variety  of 
hardware  and  software  options,  which  car  be  configured  in 
many  ways  to  tailor  the  BITBUCKET  to  the  computing  needs  of 
the  individual  installation.  This  document  provides 
abbreviated  specifications  of  both  the  hardware  components 
and  the  software  options  available  to  the  ABC  customer. 
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Hardware  Spec 1 1 f 1c  at  ions 
Model  2000  CPU 

The  Model  2000  represents  ABC's  standard  Central 
Processing  Unit.  The  Model  2000  provides  for  an  extensive 
instruction  set,  with  an  average  execution  speed  of  4 
microseconds  per  instruction. 

Model  3000  CPU 

The  Model  3000  provides  the  same  capabilities  as  the 
Model  2000  except  for  a  faster  speed.  The  Model  3000 
average  execution  time  is  3  microseconds. 

Model  20  Core  Memory 

The  primary  main  memory  unit  for  the  BITBUCKET 
system  is  the  Model  20,  96K  word  module.  This  multi  port 
memory  allows  connection  to  up  to  5  IOCs  and  up  to  99  CPUs. 
The  module  can  be  expanded  to  have  a  up  to  20  partitions  of 
1000K  words  apiece. 

Models  3110  and  3117  Input/Output  Controllers 


The  ABC  Inpuc/Output  Controllers  (IOCs)  are 
sophisticated  1/0  channels,  each  capable  of  interfacing 
several  peripheral  devices  to  main  memory. 

Model  3110  is  a  byte-multiplexed  channel  capable  of 
multiplexing  up  to  10  devices,  each  with  a  maximum  transfer 
rate  of  2.5k  bytes  per  second.  The  primary  function  of  this 
channel  is  to  provide  an  overlapped  interface  for  the 
system's  card  readers  and  line  printers. 


Model  3117  is  a  high  speed  multiplexor  channel 
capable  of  multiplexing  several  block-oriented  devices  such 
as  magnetic  tapes,  disks,  and  drums.  Up  to  ten  high  speed 
devices  can  be  connected  to  each  3177.  Each  device  can 
transfer  data  at  a  rates  up  to  500K  bytes/second .  The 
channel  itself  is  capable  of  transferring  500K  bytes  per 
second,  and  can  multipl  *x  the  transfer  of  multiple  blocks  as 
long  as  the  sum  of  the  data  rates  of  the  devices  concerned 
are  within  the  transfer  rate  of  the  channel.  This 
controller  requires  interconnection  to  an  accessed  disk  or 
drum  during  speed  and  rotational  latency.  In  the  case  of 
high  speed  drums  (e.g.  Model  2700)  the  controller  is 
dedicated  during  the  entire  delay  period.  For  the  slower 
disks  (e.g.  Model  2714),  the  wait  time  can  be  multiplexed 
between  several  disks  as  long  as  the  total  transfer  rate  of 
the  multiple  disks  is  less  than  :.he  maximum  transfer  rate  of 
the  IOC. 

Model  2700  Drum 

Fixed  head  per  track 
Rotational  speed  -  3600  rpm 
Capacity  -  7K  per  track 

-  25  Active  tracks 
Transfer  speed  -  410K  bytes/second 


Model  2714  Disk 


-Consists  of  a  controller  and  one  s ing le-s pi nd le 
disk  drive,  connects  directly  to  IOC 

-Data  storage  capacity  of  each  drive  Is  20.48 
million  bytes 

-Access  arrangement:  each  drive  provides  access  to 
200  recording  cylinders  via  a  column-type  access  mechanism 
with  20  vertically  aligned  read/write  heads,  1  per  disk 
surface.  Each  cylinder  position  provides  access  to  102,400 
bytes  of  storage. 

-Disk  pack:  each  drive  accommodates  one  IBM  2316  or 
equivalent  disk  pack  which  contains  11  disks  and  provides  20 
recording  surfaces 

-Head  position  time: 

Track  to  Track  -  30  ms 
Average  -  74  ms 
Max  -  156  ms 

-Transfer  rate:  312,000  bytes  per  second 
-Rotational  speed:  3600  rpm 
Model  6051  Magnetic  Tape  Drive 

The  Model  6051  has  been  one  of  ABC's  standard 
workhorse  models  for  many  years.  Although  of  lower  density 
and  slower  speed  than  more  recent  entries,  the  6051's  low 
cost  and  high  reliability  account  for  its  continued 
popularity  in  many  systems.  Since  the  Model  6051  uses 


industry  standard  9  track  1/2  inch  magnetic  tape,  it 
utilizes  the  same  physical  medium  as  all  other  ABC  tape 
drives,  thus  requiring  an  inventory  stock  of  only  one  tape 
type  . 

-Tape:  Standard  1/2-inch  magnetic  tape 

2400-ft  reels. 

-Tracks  :  Nine-track 

-Density:  800  bits-per-inch 

-Encoding  :  NRZ 

-Speed:  37.5  inch/ sec 

-Transfer  rate:  30,000  bytes/sec 

-Gap  size:  0.5  inch  between  blocks 

-Physical  Dimensions:  19"  x  48" 

Model  6110  Magnetic  Tape  Drive 

The  Model  6110  is  ABC's  standard  high  speed  9-track 
tape  drive.  The  high  transfer  rate  of  120,000  bytes  per 
second  combined  with  rellabllty  of  800  bpi  density  make  the 
Model  6110  an  effective  tape  storage  drive.  ABC's  patented 
Qulcloc  mechanism  speeds  tape  mounting. 

-Tape:  Standard  1/2-lnch  magnetic  tape 

2400-ft  reels. 

-Tracks  :  Nine-track 
-Density:  800  bits-per-inch 

-Encoding:  NRZ 


-Speed:  150.0  lnch/sec 


-Transfer  rate:  120,000  bytes/sec 
-Gap  size:  0.5  inch  between  blocks 
-Physical  Dimensions:  19"  x  36" 


Model  7001  Magnetic  Tape  Drive 

The  Model  7001  Is  ABC's  top  of  the  line  high  speed 
9-track  tape  drive.  Although  actual  effective  data  storage 
capacity  depends  on  block  size  used,  due  to  the  need  of  a  .4 
inch  interblock  gap,  the  Model  7001  allows  a  capacity  of  40 
million  bytes.  ABC's  patented  Quicloc  mechanism  speeds  tape 
mounting.  The  Model  7001  has  proven  itself  as  a  highly 
reliable  tape  drive  in  many  Installions. 

-Tape:  Standard  1/2-inch  magnetic  tape 

2400-ft  reels. 

-Tracks  :  Nine-track 

-Density:  1600  bi ts-per-inch 

-Encoding:  NRZ 

-Speed:  150.0  inch/sec 

Transfer  rate:  240,000  bytes/sec 

-Gap  size:  0.4  inch  between  blocks 

-Physical  Dimensions:  19"  x  42" 

Model  2920  Card  Reader 

Standard  card  reader  reads  industry  standard  80 


column  cards.  Read  rate  is  1000  cards  per  minute.  The 
input  rack  holds  5000  cards. 


SOFTWARE  SPECIFICATION 


There  are  two  different  operating  systems  that  can 
be  run  on  the  ABC  computer.  These  operating  systems  can 
handle  either  a  single  cpu  configuration  or  a  multiple  cpu 
configuration . 

Batch  Uniprocessor  Multi-Programming  System  (BUMPS) 

BUMPs  is  ABC's  multiprogramming  operating  system 
intended  for  use  in  a  batch  environment  with  a  single 
processor.  BUMP's  comes  as  standard  equipment  for  the  ABC 
computer.  This  operating  system  is  described  in  more  detail 
in  the  following  sections. 

System  Jobs 

The  BUMPs  operating  system  consists  of  a  nucleus 
which  is  core  resident,  requires  96K  words,  and  includes 
such  tasks  as  memory  loading,  input/output  control,  and 
processor  scheduling.  In  addition  there  are  three  system 
programs  which  M)  have  impact  on  the  flow  of  user  programs. 
The  Job  Scheduler,  although  core  resident  (in  the  96K 
nucleus),  must  go  through  the  execute  queue  like  any  other 
job.  The  Input  Spooler  and  the  Output  Spooler  are  not 
normally  core  resident  and  must  acquire  resources  in  the 
Hold  queue  like  any  other  user  job.  The  operation  of  these 
programs  and  the  resources  they  require  is  described  in 
greater  detail  below. 


Job  Flow 


A  typical  user  program  gets  Into  the  system  through 
the  Input  spooler  (Figure  1).  After  the  job  is  spooled  it 
is  placed  into  the  hold  queue  to  await  resources.  The  job 
scheduler  examines  the  jobs  in  the  hold  queue,  according  to 

the  job  priorities  and  the  time  the  job  entered  the  hold 

queue,  and  allocates  memory  partitions  and  allocatable  I/O 
devices  to  each  job.  After  the  job  is  allocated  it  proceeds 
to  the  execute  queue.  When  the  cpu  is  free  it  takes  the 
highest  ranking  job  in  the  execute  queue  and  performs  a  cpu 

burst.  Job  ranking  in  the  execute  queue  is  done  by  job 

type.  The  job  scheduler  gets  the  highest  priority,  followed 
by  the  software  monitor  start-up  job,  output  spooler,  input 
spooler  and  user  jobs,  respectively.  The  cpu  burst  lasts 
until  one  of  four  things  happen:  an  I/O  was  Issued  for  an 
allocatable  I/O  device,  an  I/O  was  requested  issued  for  an 
unal loca table  device,  a  timeout  occurred,  or  the  job 
finished.  If  an  allocatable  device  I/O  request  occurred 
then  the  job  gets  placed  in  the  smallest  channel  queue  which 
is  connected  to  the  requested  I/O  device.  The  I/O  is 
performed,  the  channel  is  freed,  and  the  job  is  placed  back 
into  the  execute  queue.  If  an  unal loca table  device  I/O 
occurred  the  job  gets  placed  in  the  proper  device  queue. 

Once  the  device  has  been  acquired  the  job  is  placed  in  the 
smallest  channel  queue  which  is  connected  to  the  device. 


£’ifc>  1»  Typical  Job  Flow 


The  I/O  is  then  performed.  After  completion  of  the  I/O  the 
channel  and  the  device  are  freed  and  the  job  is  placed  back 
into  the  execute  queue.  If  a  timeout  occurred  then  the  job 
is  placed  back  into  the  execute  queue  to  wait  for  another 
time  slice.  If  the  job  is  completed  the  job  is  placed  in 
the  output  queue  and  waits  for  the  output  spooler  to  print 
the  job.  Also  at  that  time,  the  memory  partition  used  and 
the  allocatable  devices  assigned  to  the  job  are  released 
back  to  the  operating  system. 

Input  Spooler 

The  input  spooler  takes  the  user's  programs  in  the 
card  reader  and  spools  them  onto  the  disk.  When  a  new  job 
arrives  at  the  input  queue  the  operating  system  checks  to 
see  if  the  input  spooler  is  already  in  memory.  If  the 
spooler  is  not  in  memory  it  is  placed  in  the  hold  queue  and 
must  compete  for  resources  and  cpu  time  like  any  other  job. 
The  input  spooler  requires  a  memory  partition  of  4K  before 
proceeding  to  the  execute  queue.  When  the  input  spooler 
acquires  the  cpu,  it  first  schedules  an  I/O  to  read  the  8C 
byte  cards  into  a  IK  system  buffer.  After  the  buffer  is 
loaded  the  spooler  is  placed  back  into  the  execute  queue. 

The  next  time  the  spooler  gets  the  cpu  the  buffer  is  spooled 
to  the  disk.  This  two  step  process  continues  until  the 


entire  job  is  spooled.  At  that  time  the  operating  system 
checks  to  see  if  there  are  any  more  jobs  in  the  input  queue. 


The  Input  spooler  continues  until  all  the  jobs  In  the  input 
queue  are  spooled.  The  input  spooler  is  then  released  from 


the  system  and  the  memory  partition  is  returned  to  the 
operating  system.  The  input  spooler  requires  .001  seconds 
of  cpu  time  every  time  it  acquires  the  cpu. 

Output  Spooler 

The  output  spooler  takes  the  job's  output  fil-  /✓►ich 
is  stored  on  disk  and  prints  it.  Whenever  a  job  arri  j  at 
the  output  queue,  the  operating  system  checks  to  see  *-he 
output  spooler  is  loaded.  If  necessary  the  output  spooler 
will  be  placed  in  the  hold  queue.  It  will  wait  for  a  memory 
partition  of  at  least  4K  before  it  will  proceed  to  the 
execute  queue.  When  the  output  spooler  first  executes  it 
will  perform  an  I/O  which  will  load  a  IK  system  buffer  from 
the  disk  file.  The  spooler  will  be  placed  back  into  the 
execute  queue  so  that  it  can  print  the  buffer  in  the  form  of 
132  byte  lines.  This  process  continues  until  the  entire  job 
has  been  printed.  Like  the  input  spooler,  the  output 
spooler  continues  to  spool  until  its  associated  queue  is 
empty.  In  order  to  set  up  a  transfer,  the  output  spooler 
consumes  .001  seconds  of  cpu  time  every  time  it  acquires  the 


Job  Sc hed ul e r 


The  job  scheduler  allocates  memory  partitions  and 
ullocatable  I/O  devices  (tapes)  to  jobs  in  the  hold  queue. 
The  job  scheduler  is  loaded  in  the  execute  queue  (if  it  is 
not  already)  every  time  a  new  job  arrives  in  the  hold  queue 
or  when  resources  are  freed  (after  each  user's  job,  spooler 
or  software  monitor  completion).  The  job  scheduler  is 
always  core  resident  as  part  of  the  operating  system  and 
does  not  count  against  the  multiprogramming  level.  When  the 
job  scheduler  obtains  the  cpu,  it  looks  at  every  job  in  the 
hold  queue  to  see  if  it  can  assign  resources.  Resources  are 
assigned  to  jobs  according  to  a  priority  system.  The  job 
scheduler  ranks  the  jobs  according  to  the  job's  priority 
attribute.  This  attribute  is  part  of  the  jou's  input 
parameters.  If  there  is  a  tie,  the  jobs  are  arranged 
according  to  the  hold  queue  arrival  time.  ach  job  in  the 
hold  queue  is  analyzed  according  to  this  priority  scheme. 

The  job  scheduler  first  cheiks  to  see  if  a  memory  partition 
is  free  which  can  handle  the  job.  If  a  memory  partition  is 
free  the  scheduler  thens  checks  to  see  if  there  are  enough 
allocatable  I/O  devices  free.  Only  if  both  conditions  are 
met,  is  the  job  assigned  resources  and  taken  from  the  hold 
queue  and  placed  into  the  execute  queue.  The  job  scheduler 


requires  3  cpu  seconds  every  time  that  it  executes  and  no 


I/O  time 


With  this  memory  manager,  the  user  may  specify  up  to 


20  memory  partitions  of  various  size.  Partitions  are 
defined  in  terms  of  IK  work  increments.  The  memory  manager 
users  a  First  Fit  algorithm.  When  the  job  scheduler 
executes  it  starts  with  first  free  memory  partition, 
checking  to  see  if  the  job  will  fit.  If  necessary,  the  job 
scheduler  will  check  all  free  memory  partitions. 

Process  Scheduler 

The  process  scheduler  selects  jobs  from  the  execute 
queue  for  the  cpu  to  perform  a  cpu  burst.  The  process 
scheduler  uses  a  priority  round  robin  scheme.  Jots  in  the 
execute  queue  are  ordered  first  by  their  job  type  and  then 
by  the  time  they  entered  the  queue.  The  job  scheduler  has 
the  highest  priority,  followed  by  the  the  software  monitor 
start-up  job,  output  spooler,  input  spooler  and  user  jobs, 
respectively.  When  the  cpu  becomes  free  the  process 
scheduler  takes  the  highest  priority,  longest  waiting  job 
out  of  the  execute  queue.  The  job  will  execute  until  its 
time  quantum  is  used  up,  a  I/O  was  issued  or  the  job 
completes.  If  a  time  out  occurs  the  job  will  be  placed  back 
of  the  execute  queue.  If  a  I/O  occurs  before  the  time-out, 
the  job  will  do  the  I/O  then  go  to  the  back  in  the  execute 


queue.  The  process  scheduler  is  part  of  the  operating 
system  nucleus  aid  consumes  no  visible  resources. 


I/O  System 

To  facilitate  I/O  data  flow,  all  data  transfers  are 
done  in  fixed  IK  blocks.  The  high  speed  multiplexed  ABC 
Input/Output  Controllers  (IOCs)  allow  concurrent  block 
transfers  to  or  from  several  devices  if  the  sum  of  the 
device  effective  transfer  rates  is  within  the  transfer  rate 
capability  of  the  IOC  itself.  Each  I/O  request  results  in 
the  transfer  of  a  block  of  data  from  the  specified  devices, 
even  if  only  a  small  portion  of  the  block  is  requested.  In 
crder  to  make  such  a  transfer,  both  the  device  and  the  IOC 
must  be  available.  When  an  I/O  is  issued,  the  job  first 
acquires  the  appropriate  I/O  device.  If  the  device  is  busy, 
it  must  wait  in  the  device  queue.  The  device  queues  use  a 
FCFS  algorithm.  After  the  job  seizes  the  device,  it  tries 
to  allocate  an  IOC  which  is  connected  to  the  device.  If  all 
the  IOCs  are  running  at  capacity,  then  the  job  will  wait  in 
the  smallest  of  the  channel  queues.  Only  after  the  I/O 
device  and  the  channel  are  free  Is  the  data  transfer 
started.  Where  possible,  the  I/O  scheduler  cries  to 
distribute  usage  across  the  system  of  disks  and  drums. 

Each  lob  can  have  4  types  of  I/O.  First  it  must 
read  all  of  the  spooled  cards  from  the  disk.  It  must  write 
all  output  printer  lines  to  the  disk  file  (for  latter 


transfer  by  the  Output  Spooler).  In  addition  each  job 
requires  a  number  of  tape  I/Os  and  a  number  of  disk/drum 
I/Os. 

Batch  Multiprocessor  Multi-Programming  System  (BMMPS) 

The  BMMPS  operating  system  is  exactly  like  the  BUMPS 
operating  system,  except  for  the  multiple  processors.  BMMPS 
can  have  a  maximum  of  99  cpus  connected  at  one  time.  There 
is  still  only  one  execute  queue  from  whic..  all  the  cpus 
acquire  jobs  to  process.  All  the  cpus  in  the  system  are  the 
same  and  can  process  any  job. 


FIELD 


VARIABLE 


FORMAT 


Arrival  Time 
Job  Name 
CPU  Time 
Memory 
Priority 
Alloc.  Devices 
Cards 
Lines 

Disk  Blocks 

Alloc.  Device  Blocks 

Job  Type  (Note  1) 

CPU  Time  Used 
I/O  Time  Used 
Memory  Size  Used 
Departure  Time 


1X,F15.4,1X 
F10. 0, IX 
F5.0, IX 
F5.0, IX 
F5.0, IX 
F5.0.1X 
F6.0, IX 
F6.0, IX 
F6.0, IX 
F6. 0, IX 
F2.0, IX 
F10. 3, IX 
F10. 3, IX 
F10. 3, IX 
F15.4 


Note  1:  ACTLOG  only  records  user  jobs  so  Job  Type  is 

always  1.0. 


SOFTWARE  MONITOR 


The  software  monitor  is  like  any  other  job  in  the 
ABC  computer  system.  It  is  entered  into  the  system  and  must 
compete  for  computer  resources.  The  monitor  is  loaded  into 
the  hold  queue  at  the  user  specified  starting  time.  It  sits 
in  the  hold  queue  until  a  partition  of  at  least  4 K  is 
available.  It  is  then  placed  in  the  execute  quet.  a  until  it 
can  acquire  the  cpu.  When  the  monitor  acquires  the  cpu  it 
starts  the  tracing  of  jobs  through  five  user  specified 
queues.  The  software  monitor  then  releases  the  cpu  back  to 
the  operating  system.  Once  the  trace  has  started  the 
monitor  will  record  data  about  every  job  that  enters  one  of 
the  five  queues.  The  queue  name,  the  time  spent  in  the 
queue,  where  the  job  came  from,  and  where  the  job  is  going, 
is  recorded  every  time  a  job  leaves  a  queue.  When  the 
software  monitor  is  monitoring  queues  and  recording  data, 
it  puts  an  extra  burden  on  the  system.  The  software  monitor 
:auses  the  cpu  to  run  at  95JS  efficiency.  When  the  scheduled 
stopping  time  of  the  monitor  occurs,  the  memory  partition  is 
freed  and  the  cpu  goes  back  to  running  at  full  efficiency. 
The  software  monitor  writes  its  data  to  a  file  called  SFTMON 
which  is  available  for  post  processing.  The  contents  and 
format  of  the  records  are  list  in  Table  2. 


Table  2  SFTMON  Record  Format 

FIELD _ VARIABLE  FORMAT  COMMENTS 

1  Queue  Name  1X,A15,1X  See  Note  1 

2  Time  In  Queue  F8.3,1X  In  seconds 

3  .here  Job  Came  From  AL5,1X  See  Note  1 

4  Where  Job  Is  Going  A15  See  Note  1 


NOTE  1 


See  Table  3  for  possible  contents  of  these 
variables. 


*.*  V* 


»\ '  *i W.M.MiJ.M. WWMW WkV 


Table  3  Possible  SFTMON  Names 


VARIABLE  NAME  COMMENTS 


JOB  ARRIVAL 

INPUT  QUEUE 

HOLD 

QUEUE 

EXEC 

QUEUE 

OUTPUT  QUEUE 

ARVL 

SPOOL 

Input  Spo 

ARVL 

OSPOOL 

Output  Sp 

ARVL 

S/WMOM 

S/W  Monit 

ARVL 

JSCHED 

Job  Sched 

JOB  1 

FINISHED 

Job  Compl 

TAPE 

1  QUEUE 

TAPE 

2  QUEUE 

TAPE 

3  QUEUE 

TAPE 

4  QUEUE 

TAPE 

5  QUEUE 

TAPE 

6  QUEUE 

TAPE 

7  QUEUE 

TAPE 

8  QUEUE 

TAPE 

9  QUEUE 

TAPE 

10  QUEUE 

DISK 

1  QUEUE 

DISK 

2  QUEUE 

DISK 

3  QUEUE 

DISK 

4  QUEUE 

DISK 

5  QUEUE 

DISK 

6  QUEUE 

DISK 

7  QUEUE 

DISK 

8  QUEUE 

DISK 

9  QUEUE 

DISK 

10  QUEUE 

CHAN 

1  QUEUE 

Channel  1 

CHAN 

2  QUEUE 

CHAN 

3  QUEUE 

CHAN 

4  QUEUE 

CHAN 

5  QUEUE 

CPU 

GENE: 

ri  AL  CHAN 

Used  only 

because  c 

SPOOL  QUEUE 

Input  Spo 

OSPOOL  QUEUE 

Output  sp 

oler  arrival  in  system, 
ooler  arrival  in  system, 
or  arrival  in  s  'Stem, 
uler  arrival  in  execute  queue 
eted  . 


Queue . 


in  "Where  job  is  going", 
hannel  #  not  determine  yet. 
oler  queue  . 
ooler  queue  . 
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HARDWARE  MONITOR 


Unlike  Che  software  monitor,  tne  hardware  monitor 
does  not  use  up  the  ABC  computer  resources.  The  hardware 
monitor  has  its  own  timers,  counters,  and  data  recording 
devices.  It  is  an  event  driven  monitor  which  can  be 
connected  to  any  I/O  device,  channel,  or  cpu.  The  hardware 
monitor  has  two  timer  probes  and  three  counter  probes. 

These  probes  along  with  the  starting  time,  the  stopping 
time,  and  the  sample  data  rate  are  specified  in  the 
configuration  file.  One  limitation  in  the  hardware  monitor 
is  that  the  monitor  treats  multiple  cpus  as  one.  The  timer 
or  counter  connected  to  the  cpus  will  be  pulsed  every  time 
any  cpu  is  activated.  The  output  of  the  hardware  monitor  is 
written  to  a  data  file,  called  HRDMON,  which  is  available 
for  po 8 1  processing.  The  record  contents  and  format  is 
listed  in  Table  4. 
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Modifying  the  ABC  Computer  Configuration 


The  ABC  computer  can  be  modified  to  any  legal 
configuration  by  using  a  simple  question  and  answer  program 
This  program  will  from  the  responses,  generate  a 
configuration  file.  This  file  is  then  used  as  input  to  the 
s inula t ion . 

Executing  the  Configuration  Program 

The  execution  of  the  configuration  setup  program  is 
a  simple  four  step  process.  By  following  these  four  steps 
the  configuration  file  will  be  generated  and  automatically 
catalog  as  a  permanent  file. 

Step  1  (sign  on  to  the  Cyber) 

Step  2  ATTACH, PROCFIL, SETUP, ID-EE752 
Step  3  BEGIN, SETUP 

Step  4  (Answer  questions  as  they  appear 
on  the  screen) 


Trouble  Shootin 


The  generation  of  the  configuration  file  should  work 
under  normal  circumstances.  If  an  error  does  ^ccur  it  is 
probably  one  of  three  things: 

1.  Character  variables  have  to  be  enclosed  in  a  single 
quote  ( ' ) .  Make  sure  you  answer  'Y'  or  'N'  when  it  is 
appropriate . 

2.  If  you  get  an  error  that  states  that  there  is  no 
room  for  the  file  called  CONFIG,  it  means  that  you 
already  have  5  copies  of  the  file.  Since  the  Cyber  can 
only  hold  five  copies  at  one  time,  you  need  tr  purge 
one  of  the  files.  After  you  have  purged  a  copy  of  the 
CONFIG  file,  type  "R ETURN , S ETU P , CONF IG , TYPE S ” .  You  are 
now  raady  to  start  again. 

3.  The  third  possible  error  that  might  occur  is  if  you 
get  disconnected  from  the  terminal  while  in  the  middle 
of  the  process.  If  this  happens  return  all  your  files 
and  start  again.  If  you  do  not  return  the  files  then 
the  procfil  might  abort  because  it  will  try  to  attach 
the  files  again. 
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